diff options
| author | David Golden <dagolden@cpan.org> | 2009-07-07 04:10:33 -0400 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2009-07-07 10:16:08 +0200 |
| commit | 58118e0c79aaf5b753f6cd3cb5a0f4c1eb3ec55b (patch) | |
| tree | 61e80ec45b3e0812c5cdeac170f555a5f98b273f /Porting/add-package.pl | |
| parent | 75e3c8a32e5d9a53167aa1dbfdc9809cfea8cabf (diff) | |
| download | perl-58118e0c79aaf5b753f6cd3cb5a0f4c1eb3ec55b.tar.gz | |
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 <h.m.brand@xs4all.nl>
Diffstat (limited to 'Porting/add-package.pl')
| -rw-r--r-- | 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 6a07d7ef38..67b5b628ec 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; |