Update tests and $VERSION for change 23046

p4raw-id: //depot/perl@23047

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index adda35f..9ab926b 100644 (file)
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -19,7 +19,7 @@ use B qw(class main_root main_start main_cv svref_2object opnumber perlstring
          CVf_METHOD CVf_LOCKED CVf_LVALUE CVf_ASSERTION
         PMf_KEEP PMf_GLOBAL PMf_CONTINUE PMf_EVAL PMf_ONCE PMf_SKIPWHITE
         PMf_MULTILINE PMf_SINGLELINE PMf_FOLD PMf_EXTENDED);
-$VERSION = 0.67;
+$VERSION = 0.68;
 use strict;
 use vars qw/$AUTOLOAD/;
 use warnings ();

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;) {