Add a test that "eval" does not create additional reference to ouside variables.

[p5sagit/p5-mst-13.2.git] / t / op / do.t

diff --git a/t/op/do.t b/t/op/do.t
index 3be0d3a..e47441a 100644 (file)
--- a/t/op/do.t
+++ b/t/op/do.t
@@ -29,7 +29,7 @@ sub ok {
     return $ok;
 }
 
-print "1..54\n";
+print "1..50\n";
 
 # Test do &sub and proper @_ handling.
 $_[0] = 0;
@@ -191,18 +191,6 @@ ok($x == 4, 'if (0){} else { ...; @a } receives caller scalar context');
 ok("@x" eq "24 25 26 27", 'if (0){} else { ...; @a } receives caller list context');
 
 
-# [perl #38809]
-@a = (7, 8);
-$x = sub { do { return do { 1; @a } }; 3 }->();
-ok(defined $x && $x == 2, 'return do { } receives caller scalar context');
-@x = sub { do { return do { 1; @a } }; 3 }->();
-ok("@x" eq "7 8", 'return do { } receives caller list context');
-@a = (7, 8, 9);
-$x = sub { do { do { 1; return @a } }; 4 }->();
-ok(defined $x && $x == 3, 'do { return } receives caller scalar context');
-@x = sub { do { do { 1; return @a } }; 4 }->();
-ok("@x" eq "7 8 9", 'do { return } receives caller list context');
-
 END {
     1 while unlink("$$.16", "$$.17", "$$.18");
 }