diff options
author | Niels Thykier <niels@thykier.net> | 2016-06-18 21:18:29 +0000 |
---|---|---|
committer | Niels Thykier <niels@thykier.net> | 2016-06-18 21:18:29 +0000 |
commit | a149f01b29568262b0dbea63716471e748e5b98e (patch) | |
tree | 658c8f0c1944f27c0ae6fbc87a442bf1dadb1b70 | |
parent | b925a807b7d77a95e0fa05cc2c77af56f8c6dc94 (diff) | |
download | debhelper-a149f01b29568262b0dbea63716471e748e5b98e.tar.gz |
Optimise a few stat calls
Signed-off-by: Niels Thykier <niels@thykier.net>
-rw-r--r-- | Debian/Debhelper/Dh_Lib.pm | 2 | ||||
-rwxr-xr-x | dh_perl | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/Debian/Debhelper/Dh_Lib.pm b/Debian/Debhelper/Dh_Lib.pm index 531f3d22..5c20c634 100644 --- a/Debian/Debhelper/Dh_Lib.pm +++ b/Debian/Debhelper/Dh_Lib.pm @@ -1308,7 +1308,7 @@ sub install_dh_config_file { $mode = 0644 if not defined($mode); if (!compat(8) and -x $source) { - my @sstat = stat($source) || error("cannot stat $source: $!"); + my @sstat = stat(_) || error("cannot stat $source: $!"); open(my $tfd, '>', $target) || error("cannot open $target: $!"); chmod($mode, $tfd) || error("cannot chmod $target: $!"); open(my $sfd, '-|', $source) || error("cannot run $source: $!"); @@ -108,7 +108,7 @@ foreach my $package (@{$dh{DOPACKAGES}}) { # find scripts find sub { - return unless -f and (-x or /\.pl$/); + return unless -f and (-x _ or /\.pl$/); return if $File::Find::dir=~/\/usr\/share\/doc\//; return unless open(my $fd, '<', $_); |