You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by ra...@apache.org on 2003/09/11 03:31:22 UTC
cvs commit: modperl-2.0/lib/ModPerl BuildMM.pm
randyk 2003/09/10 18:31:22
Modified: lib/ModPerl BuildMM.pm
Log:
Reviewed by: stas
Prevent files in CVS/ directories from being copied over into blib/ on Win32.
Revision Changes Path
1.12 +2 -1 modperl-2.0/lib/ModPerl/BuildMM.pm
Index: BuildMM.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/lib/ModPerl/BuildMM.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- BuildMM.pm 21 May 2003 06:47:45 -0000 1.11
+++ BuildMM.pm 11 Sep 2003 01:31:22 -0000 1.12
@@ -6,6 +6,7 @@
use ExtUtils::MakeMaker ();
use Cwd ();
use File::Spec;
+use File::Basename;
use Apache::Build ();
use ModPerl::MM;
@@ -254,7 +255,7 @@
}
return '' if $path =~ m/\.(pl|cvsignore)$/;
- return '' if $path =~ m:\bCVS/:;
+ return '' if (basename dirname $path) eq 'CVS';
return '' if $path =~ m/~$/;
$path;