From: Steve Hay <SteveHay@planit.com>
Date: Mon, 28 Sep 2009 14:05:24 +0000 (+0100)
Subject: Fix maintainers.t on Win32 with Borland compiler
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d9ef0156525e64ad4d955006e4ce513cdaef18a5;p=p5sagit%2Fp5-mst-13.2.git

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.
---

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(