This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
fb1ab11
)
Use bsd_glob() instead of glob().
author
James E Keenan
<jkeenan@cpan.org>
Wed, 17 Oct 2018 20:22:43 +0000
(16:22 -0400)
committer
James 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
patch
|
blob
|
blame
|
history
diff --git
a/ext/File-Glob/t/case.t
b/ext/File-Glob/t/case.t
index
6362ef0
..
5d8e011
100644
(file)
--- 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);