diff options
author | Abigail <abigail@abigail.be> | 2012-03-13 18:37:49 +0100 |
---|---|---|
committer | Abigail <abigail@abigail.be> | 2012-03-13 18:37:49 +0100 |
commit | a9f5d1d4e0348ce7471288c28973e974556f562b (patch) | |
tree | 2cf8ca24888ccc1f6946f04523f4f8d298d25e64 | |
parent | 2d442f9fc80afe4a58c6c5a87c26a660efefcc80 (diff) | |
download | perl-a9f5d1d4e0348ce7471288c28973e974556f562b.tar.gz |
Disambiguate map { }
-rwxr-xr-x | Porting/sync-with-cpan | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Porting/sync-with-cpan b/Porting/sync-with-cpan index 93d1a7ec75..2829c8edfb 100755 --- a/Porting/sync-with-cpan +++ b/Porting/sync-with-cpan @@ -188,7 +188,7 @@ chomp @exec; # No need to change the +x bit on files that will be deleted. # if (@exec && @delete) { - my %delete = map {"$pkg_dir/$_" => 1} @delete; + my %delete = map {+"$pkg_dir/$_" => 1} @delete; @exec = grep {!$delete {$_}} @exec; } |