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 (executable)
--- 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";