Front page | perl.perl5.porters |
Postings from November 2003
Jeff 'japhy' Pinyan wrote:
>
> This only happens with lexicals.
>
> my ($A, $B);
> $B = ($A = '' . foo()) . "y";
> $D = ($C = '' . foo()) . "y";
> print "$A,$B\n"; # xy,xy
> print "$C,$D\n"; # x,xy
>
> sub foo { "x" }
Ouch.
I can reproduce it with 5.6.1, but not with 5.5.3.
Looks like an optree optimization problem.
Andreas, could you try this below with binsearchaperl ?
#!perl
sub foo { "x" }
my ($A, $B);
$B = ($A = '' . foo()) . "y";
print "$A,$B" eq "x,xy" ? "ok\n" : "not ok\n";
__END__
Thread Previous
|
Thread Next