Re^2: What about if (my $var = foo()) { ... }

For the quote challenged

perl -we " @a = qw!a b!;while (my $x = pop @a) { push @x, \$x; print \
+$x, q!: !, ($x || 0), qq!\n!; redo if 0 != @x % 3; };
[download]

I believe the old behaviour is a bug, because $x isn't supposed to change

Comment on Re^2: What about if (my $var = foo()) { ... } Download Code