Remove MAN3PODS from modules' Makefile.PLs which are not the same as on CPAN.

[p5sagit/p5-mst-13.2.git] / Porting / add-package.pl

diff --git a/Porting/add-package.pl b/Porting/add-package.pl
index ba0dbfa..54a4f03 100644 (file)
--- a/Porting/add-package.pl
+++ b/Porting/add-package.pl
@@ -34,7 +34,9 @@ if ( $NoBranch ) {
     my $RepoCopy = "$Repo-$BranchName";
     print "Copying repository to $RepoCopy ..." if $Verbose;
     
-    system( "cp --archive -f $Repo $RepoCopy" )
+    ### --archive == -dPpR, but --archive is not portable, and neither
+    ### is -d, so settling for -PpR
+    system( "cp -PpR -f $Repo $RepoCopy" )
         and die "Copying master repo to $RepoCopy failed: $?";
 
     ### Going forward, use the copy in place of the original repo
@@ -135,7 +137,7 @@ my @TestFiles;
        ? system( "cp -fR $CPV t $TopDir" ) && die "Copy of t/ failed: $?"
        : warn "No t/ directory found\n";
 
-    @TestFiles =    map { chomp; s|^$TopDirRe||; $_ }
+    @TestFiles =    map { chomp; s|^$TopDirRe||; s|//|/|g; $_ }
                     ### should we get rid of this file?
                     grep { $ExcludeRe && $_ =~ $ExcludeRe
                         ? do {  warn "Removing $_\n";
@@ -167,7 +169,7 @@ BIN: {
 
     system($CopyCmd) && die "Copy of $BinDir failed: $?";
 
-    @BinFiles = map { chomp; s|^$TopDirRe||; $_ }
+    @BinFiles = map { chomp; s|^$TopDirRe||; s|//|/|g; $_ }
                 ### should we get rid of this file?
                 grep { $ExcludeRe && $_ =~ $ExcludeRe
                     ? do {  warn "Removing $_\n";