For S_incpush(), dir is never NULL, and len is always > 0.

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

diff --git a/Porting/add-package.pl b/Porting/add-package.pl
index ba0dbfa..ded907d 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