In perl.git, the branch blead has been updated <https://perl5.git.perl.org/perl.git/commitdiff/a15e41c213bf763e1770580fc3e0aa476070261f?hp=fb1ab119d45424c20269bacd0dada91318c5515f>
- Log ----------------------------------------------------------------- commit a15e41c213bf763e1770580fc3e0aa476070261f Author: James E Keenan <jkee...@cpan.org> Date: Wed Oct 17 16:22:43 2018 -0400 Use bsd_glob() instead of glob(). 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. ----------------------------------------------------------------------- Summary of changes: ext/File-Glob/t/case.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ext/File-Glob/t/case.t b/ext/File-Glob/t/case.t index 6362ef0586..5d8e011688 100644 --- a/ext/File-Glob/t/case.t +++ b/ext/File-Glob/t/case.t @@ -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); -- Perl5 Master Repository