mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

modernize mkppport with signatures

Browse Source
This commit is contained in:
Nicolas R 2020-03-11 11:23:52 -06:00 committed by Karl Williamson
parent 3d7d42a3d3
commit aa4b50cc50
1 changed files with 8 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
mkppport
View File

@ -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>) {