Change 31448 by [EMAIL PROTECTED] on 2007/06/23 00:08:44
remove the test added by change #31447
(I couldn't get a test that worked, and accidentally included my
failed attempt in the patch).
Affected files ...
... //depot/perl/t/op/closure.t#31 edit
Differences ...
==== //depot/perl/t/op/closure.t#31 (xtext) ====
Index: perl/t/op/closure.t
--- perl/t/op/closure.t#30~31447~ 2007-06-22 16:46:36.000000000 -0700
+++ perl/t/op/closure.t 2007-06-22 17:08:44.000000000 -0700
@@ -14,7 +14,7 @@
use Config;
require './test.pl'; # for runperl()
-print "1..188\n";
+print "1..187\n";
my $test = 1;
sub test (&) {
@@ -688,24 +688,6 @@
test { $flag == 1 };
}
-# although the 'my $x if ...' form is deprecated, it must still work.
-# Ensure that cloning a stale var gives a new undef value rather than
-# sharing the old value
-
-{
- sub f {
- my $a = 1 if $_[0];
- return sub { \$a };
- }
- my $c1 = f(1);
- my $c2 = f(0);
- my $r1 = $c1->();
- my $r2 = $c2->();
- warn "r1=$r1 r2=$r2\n";
- test { !defined $$r2 };
- test { $r1 ne $r2 };
-}
-
End of Patch.
