Another ex-PVBM assert

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

diff --git a/t/op/closure.t b/t/op/closure.t
index ca774a2..7d8df6a 100755 (executable)
--- a/t/op/closure.t
+++ b/t/op/closure.t
@@ -14,7 +14,7 @@ BEGIN {
 use Config;
 require './test.pl'; # for runperl()
 
-print "1..188\n";
+print "1..187\n";
 
 my $test = 1;
 sub test (&) {
@@ -688,24 +688,6 @@ __EOF__
     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 };
-}
-