diff options
author | Nicolas R <atoomic@cpan.org> | 2020-03-11 11:23:52 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2020-03-19 09:52:28 -0600 |
commit | aa4b50cc509e728b57bbbb5cf5f166f90aae89a4 (patch) | |
tree | 17cfb9abc8dd89d95564bf19a9862f480a44b3ef /mkppport | |
parent | 3d7d42a3d3cb2d8cfe70a89726c7ae83e1bcca9b (diff) | |
download | perl-aa4b50cc509e728b57bbbb5cf5f166f90aae89a4.tar.gz |
modernize mkppport with signatures
Diffstat (limited to 'mkppport')
-rw-r--r-- | mkppport | 20 |
1 files changed, 8 insertions, 12 deletions
@@ -7,7 +7,8 @@ use File::Compare qw( compare ); use File::Copy qw( copy ); use File::Basename qw( dirname ); -sub iterdirs(&); +use feature 'signatures'; +no warnings 'experimental::signatures'; my $rootdir = dirname($0); @@ -37,15 +38,14 @@ unless (@destdirs) { # Remove all installed ppport.h files if ($opt{clean}) { - iterdirs { - my($dir, $fulldir) = @_; + iterdirs( sub ($dir, $fulldir) { my $dest = File::Spec->catfile($fulldir, 'ppport.h'); if (-f $dest) { print "removing ppport.h for $dir\n"; unlink $dest or warn "WARNING: could not remove $dest: $!\n"; 1 while unlink $dest; # remove any remaining versions } - }; + } ); exit 0; } @@ -83,8 +83,7 @@ unless (-e 'ppport.h') { } # Now install the created ppport.h into extension directories -iterdirs { - my($dir, $fulldir) = @_; +iterdirs( sub ($dir, $fulldir) { my $dest = File::Spec->catfile($fulldir, 'ppport.h'); if (compare('ppport.h', $dest)) { print "installing ppport.h for $dir\n"; @@ -93,17 +92,15 @@ iterdirs { else { print "ppport.h in $dir is up-to-date\n"; } -}; +} ); exit 0; #--------------------------------------- # Iterate through extension directories #--------------------------------------- -sub iterdirs(&) +sub iterdirs($code) { - my $code = shift; - for my $dir (@destdirs) { my $fulldir = File::Spec->catdir($absroot, $dir); if (-d $fulldir) { @@ -118,9 +115,8 @@ sub iterdirs(&) #---------------------------------------- # Read the list of extension directories #---------------------------------------- -sub readlist +sub readlist($list) { - my $list = shift; my @dirs; open LIST, $list or die "$list: $!\n"; while (<LIST>) { |