From: Benjamin Sugars <bsugars@canoe.ca>
Date: Wed, 18 Apr 2001 10:53:44 +0000 (-0400)
Subject: Test case for C<undef %File::Glob::>
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ba1129430d789b5089458f96b152e1635f5d15fc;p=p5sagit%2Fp5-mst-13.2.git

Test case for C<undef %File::Glob::>
Message-ID: <Pine.LNX.4.21.0104181047010.2368-100000@marmot.rim.canoe.ca>

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

diff --git a/t/op/glob.t b/t/op/glob.t
index fc0ba77..98efc3d 100755
--- a/t/op/glob.t
+++ b/t/op/glob.t
@@ -5,7 +5,7 @@ BEGIN {
     @INC = '../lib';
 }
 
-print "1..6\n";
+print "1..7\n";
 
 @oops = @ops = <op/*>;
 
@@ -38,3 +38,13 @@ print "@glops" eq "@oops" ? "ok 5\n" : "not ok 5\n";
 
 @glops = glob;
 print "@glops" eq "@oops" ? "ok 6\n" : "not ok 6\n";
+
+# glob should still work even after the File::Glob stash has gone away
+# (this used to dump core)
+my $i = 0;
+for (1..2) {
+    eval "<.>";
+    undef %File::Glob::;
+    ++$i;
+}
+print $i == 2 ? "ok 7\n" : "not ok 7\n";