This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Use bsd_glob() instead of glob().
authorJames E Keenan <jkeenan@cpan.org>
Wed, 17 Oct 2018 20:22:43 +0000 (16:22 -0400)
committerJames E Keenan <jkeenan@cpan.org>
Wed, 17 Oct 2018 22:38:00 +0000 (18:38 -0400)
Two instances of glob() which run on MSWin32 were overlooked in commit
df8b709bfcaea9932dd434f18393bfcb4e3d5568.

Thanks to Christian Walde for Win32 smoke testing and assistance in diagnosis.

ext/File-Glob/t/case.t

index 6362ef0..5d8e011 100644 (file)
@@ -34,10 +34,10 @@ cmp_ok(scalar @a, '>=', 3, 'explicit use of the GLOB_NOCASE flag');
 SKIP: {
     skip 'Not Win32 or NetWare', 3 unless $^O eq 'MSWin32' || $^O eq 'NetWare';
 
-    @a = File::Glob::glob("op\\g*.t");
+    @a = File::Glob::bsd_glob("op\\g*.t");
     cmp_ok(scalar @a, '>=', 8);
     mkdir "[]", 0;
-    @a = File::Glob::glob("\\[\\]", GLOB_QUOTE);
+    @a = File::Glob::bsd_glob("\\[\\]", GLOB_QUOTE);
     rmdir "[]";
     is(scalar @a, 1);
     @a = bsd_glob("op\\*", GLOB_QUOTE);