In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/58118e0c79aaf5b753f6cd3cb5a0f4c1eb3ec55b?hp=75e3c8a32e5d9a53167aa1dbfdc9809cfea8cabf>
- Log ----------------------------------------------------------------- commit 58118e0c79aaf5b753f6cd3cb5a0f4c1eb3ec55b Author: David Golden <[email protected]> Date: Tue Jul 7 04:10:33 2009 -0400 limit what add-package.pl might try to delete Old way looked in perl source for files matching exclude list to delete. New way looks only in source distribution. This means that files already in perl source will need to be manually removed, but avoids the risk that a bad exclusion regex blows away unrelated things in the source tree. Signed-off-by: H.Merijn Brand <[email protected]> ----------------------------------------------------------------------- Summary of changes: Porting/add-package.pl | 10 +++++----- 1 files changed, 5 insertions(+), 5 deletions(-) diff --git a/Porting/add-package.pl b/Porting/add-package.pl index 6a07d7e..67b5b62 100644 --- a/Porting/add-package.pl +++ b/Porting/add-package.pl @@ -80,7 +80,7 @@ my @LibFiles; undef } : 1 - } `find $Repo/lib -type f` + } `find lib -type f` or die "Could not detect library files\n"; print "done\n" if $Verbose; @@ -141,11 +141,11 @@ my @TestFiles; ### should we get rid of this file? grep { $ExcludeRe && $_ =~ $ExcludeRe ? do { warn "Removing $_\n"; - system("rm $_") and die "rm '$_' failed: $?"; + system("rm $TopDir/$_") and die "rm '$_' failed: $?"; undef } : 1 - } `find $TopDir/t -type f` + } `find t -type f` or die "Could not detect testfiles\n"; print "done\n" if $Verbose; @@ -173,11 +173,11 @@ BIN: { ### should we get rid of this file? grep { $ExcludeRe && $_ =~ $ExcludeRe ? do { warn "Removing $_\n"; - system("rm $_") and die "rm '$_' failed: $?"; + system("rm $TopDir/$_") and die "rm '$_' failed: $?"; undef } : 1 - } `find $TopBinDir -type f` + } `find $BinDir -type f` or die "Could not detect binfiles\n"; print "done\n" if $Verbose; -- Perl5 Master Repository
