From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 25 Nov 2001 00:32:36 +0000 (+0000)
Subject: xsubpp produces a spurious warning on directories called 'typemap'
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dd713d92062e7ee166f99e5840a168e855c8fd51;p=p5sagit%2Fp5-mst-13.2.git

xsubpp produces a spurious warning on directories called 'typemap'

p4raw-id: //depot/perl@13249
---

diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp
index d242ff1..98bb739 100755
--- a/lib/ExtUtils/xsubpp
+++ b/lib/ExtUtils/xsubpp
@@ -211,7 +211,7 @@ unshift @tm, qw(../../../../lib/ExtUtils/typemap ../../../lib/ExtUtils/typemap
                 ../../lib/ExtUtils/typemap ../../../typemap ../../typemap
                 ../typemap typemap);
 foreach $typemap (@tm) {
-    next unless -e $typemap ;
+    next unless -f $typemap ;
     # skip directories, binary files etc.
     warn("Warning: ignoring non-text typemap file '$typemap'\n"), next 
 	unless -T $typemap ;