The "my $_" wasn't nice with foreach loops.

p4raw-id: //depot/perl@22268

1 files changed, 18 insertions, 1 deletions

diff --git a/t/op/mydef.t b/t/op/mydef.t
index 700a3dc5f7..0770e78f0b 100644
--- a/t/op/mydef.t
+++ b/t/op/mydef.t
@@ -5,7 +5,7 @@ BEGIN {
     @INC = '../lib';
 }
 
-print "1..56\n";
+print "1..64\n";
 
 my $test = 0;
 sub ok ($$) {
@@ -66,6 +66,23 @@ $_ = "global";
     ok( our $_ eq 'global', '...our $_ restored outside for my $_' );
 }
 {
+    my $_ = 'local';
+    for ("implicit foo") { # implicit "my $_"
+	ok( $_ eq "implicit foo", 'for implicit my $_' );
+	/(.)/;
+	ok( $1 eq "i", '...m// in for implicity my $_' );
+	ok( our $_ eq 'global', '...our $_ inside for implicit my $_' );
+    }
+    ok( $_ eq 'local', '...my $_ restored outside for implicit my $_' );
+    ok( our $_ eq 'global', '...our $_ restored outside for implicit my $_' );
+}
+{
+    my $_ = 'local';
+    ok( $_ eq "postfix foo", 'postfix for' ) for 'postfix foo';
+    ok( $_ eq 'local', '...my $_ restored outside postfix for' );
+    ok( our $_ eq 'global', '...our $_ restored outside postfix for' );
+}
+{
     for our $_ ("bar") {
 	ok( $_ eq "bar", 'for our $_' );
 	/(.)/;