This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
glob crashes when %File::Glob:: is empty
[perl5.git] / t / op / glob.t
index 7a42f12..f8725f8 100644 (file)
@@ -6,7 +6,7 @@ BEGIN {
 }
 
 require 'test.pl';
 }
 
 require 'test.pl';
-plan( tests => 15 );
+plan( tests => 16 );
 
 @oops = @ops = <op/*>;
 
 
 @oops = @ops = <op/*>;
 
@@ -51,7 +51,15 @@ for (1..2) {
     undef %File::Glob::;
     ++$i;
 }
     undef %File::Glob::;
     ++$i;
 }
-cmp_ok($i,'==',2,'remore File::Glob stash');
+cmp_ok($i,'==',2,'remove File::Glob stash');
+
+# a more sinister version of the same test (crashes from 5.8 to 5.13.1)
+{
+    undef %File::Glob::;
+    local %CORE::GLOBAL::;
+    eval "<.>";
+    ok(!length($@),"remove File::Glob stash *and* CORE::GLOBAL::glob");
+}
 
 # ... while ($var = glob(...)) should test definedness not truth
 
 
 # ... while ($var = glob(...)) should test definedness not truth