From: Dave Mitchell <davem@fdisolutions.com>
Date: Sat, 23 Jun 2007 00:08:44 +0000 (+0000)
Subject: remove the test added by change #31447
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6519b9b8b9d7e5a23e87e49a49ac8ff2379435cf;p=p5sagit%2Fp5-mst-13.2.git

remove the test added by change #31447
(I couldn't get a test that worked, and accidentally included my
failed attempt in the patch).
p4raw-link: @31447 on //depot/perl: efa785391fea9e6aff4c999b27ad62b7d8f9ea99

p4raw-id: //depot/perl@31448
---

diff --git a/t/op/closure.t b/t/op/closure.t
index ca774a2..7d8df6a 100755
--- 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 };
-}
-