14 local $::Level = $::Level + 1;
15 my ( $cona, $testnum ) = @_;
16 my $conb = (defined wantarray) ? ( wantarray ? 'A' : 'S' ) : 'V';
24 $a = scalar context('S');
26 ($a) = scalar context('S');
29 # [ID 20020626.011] incorrect wantarray optimisation
30 sub simple { wantarray ? 1 : 2 }
32 my $a = wantarray ? simple() : simple();
45 $q = (defined wantarray) ? ( wantarray ? 'A' : 'S' ) : 'V';