Upgrade to Tie::File 0.20.

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

diff --git a/t/op/local.t b/t/op/local.t
index b478e01..9f977b2 100755 (executable)
--- a/t/op/local.t
+++ b/t/op/local.t
@@ -1,9 +1,6 @@
 #!./perl
 
-print "1..69\n";
-
-# XXX known to leak scalars
-$ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3;
+print "1..71\n";
 
 sub foo {
     local($a, $b) = @_;
@@ -235,3 +232,14 @@ while (/(o.+?),/gc) {
     untie $_;
 }
 
+{
+    # BUG 20001205.22
+    my %x;
+    $x{a} = 1;
+    { local $x{b} = 1; }
+    print "not " if exists $x{b};
+    print "ok 70\n";
+    { local @x{c,d,e}; }
+    print "not " if exists $x{c};
+    print "ok 71\n"; 
+}