Optimise a few stat calls

Signed-off-by: Niels Thykier <niels@thykier.net>

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: $!");
diff --git a/dh_perl b/dh_perl
index c6088d41..4f13dc0e 100755
--- a/dh_perl
+++ b/dh_perl
@@ -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, '<', $_);