From ba1129430d789b5089458f96b152e1635f5d15fc Mon Sep 17 00:00:00 2001
From: Benjamin Sugars <bsugars@canoe.ca>
Date: Wed, 18 Apr 2001 06:53:44 -0400
Subject: [PATCH] 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
---
 t/op/glob.t | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

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";
-- 
2.7.4