In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/d9ef0156525e64ad4d955006e4ce513cdaef18a5?hp=411c7dd7840a88fadfd96f0cb8264278810eb9fc>
- Log ----------------------------------------------------------------- commit d9ef0156525e64ad4d955006e4ce513cdaef18a5 Author: Steve Hay <[email protected]> Date: Mon Sep 28 15:05:24 2009 +0100 Fix maintainers.t on Win32 with Borland compiler Borland's C run-time thinks that glob patterns with * and ? characters are files or directories. There are no files or directories in the perl source containing those characters, so give it a helping hand when using -f or -d. ----------------------------------------------------------------------- Summary of changes: Porting/Maintainers.pm | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Porting/Maintainers.pm b/Porting/Maintainers.pm index 8de91c4..187e38b 100644 --- a/Porting/Maintainers.pm +++ b/Porting/Maintainers.pm @@ -69,9 +69,9 @@ sub get_module_pat { sub expand_glob { sort { lc $a cmp lc $b } map { - -f $_ ? # File as-is. + -f $_ && $_ !~ /[*?]/ ? # File as-is. $_ : - -d _ ? # Recurse into directories. + -d _ && $_ !~ /[*?]/ ? # Recurse into directories. do { my @files; find( -- Perl5 Master Repository
