diff options
| author | Jos I. Boumans <jos@dwim.org> | 2009-02-25 09:31:02 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-02-25 09:31:02 +0100 |
| commit | 15e5e8668b86d4e43615103f790f9c1a736045dd (patch) | |
| tree | 09eb8af9d3be7ce2ea1343c1bb4d5a581261484d | |
| parent | d4be36a8ea2b96180ed1c8dd5001a069eb7348d6 (diff) | |
| download | perl-15e5e8668b86d4e43615103f790f9c1a736045dd.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.
| -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"; |