diff options
author | Jos I. Boumans <jos@dwim.org> | 2009-02-25 09:31:02 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2009-04-15 13:41:52 +0100 |
commit | 2b73e76016e4b87fa96a9cc9bc1a69bbf566d410 (patch) | |
tree | 954ec115360cd3f59892043f4735d4e6c59c162b /Porting/add-package.pl | |
parent | 519154f0f07155d34aee9071c27ffee7ed19783e (diff) | |
download | perl-2b73e76016e4b87fa96a9cc9bc1a69bbf566d410.tar.gz |
add-package.pl fixup
Sometimes, using find, add-package.pl will construct filenames with 2
consecutive slashes, ie:
Package-Name/bin//script.pl
As this literal string isn't in the MANIFEST yet, it'll be added
erroneously. The below patch fixes this.
(cherry picked from commit 15e5e8668b86d4e43615103f790f9c1a736045dd)
Diffstat (limited to 'Porting/add-package.pl')
-rw-r--r-- | Porting/add-package.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Porting/add-package.pl b/Porting/add-package.pl index ded907dd41..54a4f036c3 100644 --- a/Porting/add-package.pl +++ b/Porting/add-package.pl @@ -137,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"; @@ -169,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"; |