From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 5 Jul 2004 17:05:55 +0000 (+0000)
Subject: Update tests and $VERSION for change 23046
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0bb5f065f38674978e125cbbe6bfe2d453cf29fb;p=p5sagit%2Fp5-mst-13.2.git

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