This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Porting/sync-with-cpan: 5.12 compatibility
authorFather Chrysostomos <sprout@cpan.org>
Sun, 24 Sep 2017 20:27:18 +0000 (13:27 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 3 Oct 2017 13:31:05 +0000 (06:31 -0700)
So I can type simply ‘Porting/sync-with-cpan Test::Simple’ and run
it with the system perl.

Porting/sync-with-cpan

index 0176e18..5d78e10 100755 (executable)
@@ -486,7 +486,7 @@ if (@de_exec && @delete) {
 # Mustn't change the +x bit on files that are whitelisted
 #
 if (@de_exec) {
-    my %permitted = map +(tr/\n//dr => 1), grep !/^#/,
+    my %permitted = map { (my $x = $_) =~ tr/\n//d; $x => 1 } grep !/^#/,
         do { local @ARGV = '../Porting/exec-bit.txt'; <> };
     @de_exec = grep !$permitted{"cpan/$pkg_dir/$_"}, @de_exec;
 }