From e446e8308e654785721d8036a1d53633207053f0 Mon Sep 17 00:00:00 2001
From: joey <joey>
Date: Fri, 9 Feb 2001 01:38:37 +0000
Subject: r421: use strict

---
 dh_strip | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

(limited to 'dh_strip')

diff --git a/dh_strip b/dh_strip
index 7c851e29..86304f40 100755
--- a/dh_strip
+++ b/dh_strip
@@ -2,6 +2,7 @@
 #
 # Strip files.
 
+use strict;
 use File::Find;
 use Debian::Debhelper::Dh_Lib;
 init();
@@ -20,8 +21,8 @@ sub testfile {
 
 	# See if we were asked to exclude this file.
 	# Note that we have to test on the full filename, including directory.
-	$fn="$File::Find::dir/$_";
-	foreach $f (@{$dh{EXCLUDE}}) {
+	my $fn="$File::Find::dir/$_";
+	foreach my $f (@{$dh{EXCLUDE}}) {
 		return if ($fn=~m/\Q$f\E/);
 	}
 
@@ -36,7 +37,7 @@ sub testfile {
 	}
 	
 	# Is it executable? -x isn't good enough, so we need to use stat.
-	(undef,undef,$mode,undef)=stat(_);
+	my (undef,undef,$mode,undef)=stat(_);
 	if ($mode & 0111) {
 		# Ok, expensive test.
 		my $type=`file $_`;
@@ -53,11 +54,11 @@ sub testfile {
 	}
 }
 
-foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
-	$TMP=tmpdir($PACKAGE);
+foreach my $package (@{$dh{DOPACKAGES}}) {
+	my $tmp=tmpdir($package);
 
-	@shared_libs=@executables=@static_libs=();
-	find(\&testfile,$TMP);
+	my (@shared_libs, @executables, @static_libs);
+	find(\&testfile,$tmp);
 
 	foreach (@shared_libs) {
 		# Note that all calls to strip on shared libs
-- 
cgit v1.2.3