Update tests and $VERSION for change 23046

[p5sagit/p5-mst-13.2.git] / ext / B / t / deparse.t

diff --git a/ext/B/t/deparse.t b/ext/B/t/deparse.t
index f599a0e..fed9cf0 100644 (file)
--- a/ext/B/t/deparse.t
+++ b/ext/B/t/deparse.t
@@ -212,9 +212,7 @@ my ($x,@a);
 $x=1 for @a;
 >>>>
 my($x, @a);
-foreach $_ (@a) {
-    $x = 1;
-}
+$x = 1 foreach (@a);
 ####
 # 19
 for (my $i = 0; $i < 2;) {