This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Be nice with subversion hidden directories
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 6 Oct 2005 13:42:00 +0000 (13:42 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 6 Oct 2005 13:42:00 +0000 (13:42 +0000)
p4raw-id: //depot/perl@25707

ext/Compress/Zlib/Makefile.PL

index d377f17..aeb58e8 100755 (executable)
@@ -175,7 +175,6 @@ if (eval {require ExtUtils::Constant; 1}) {
                                      NAMES => \@names,
                                      C_FILE  => 'constants.h',
                                      XS_FILE  => 'constants.xs',
-                                                                       
                                     );
 } 
 else {
@@ -194,7 +193,8 @@ sub MY::libscan
 
     return undef
         if $path =~ /(~|\.bak|_bak)$/ ||
-           $path =~ /\..*\.swp$/ ;
+           $path =~ /\..*\.swp$/ ||
+           $path =~ /\B\.svn\b/;
 
     return $path;
 }