summaryrefslogtreecommitdiff
path: root/dh_strip
diff options
context:
space:
mode:
authorjoey <joey>2001-02-09 01:38:37 +0000
committerjoey <joey>2001-02-09 01:38:37 +0000
commite446e8308e654785721d8036a1d53633207053f0 (patch)
treeb94df61d32eb482c3c1bc5a016d96e625e12dca6 /dh_strip
parent053f6f8b4e7431d32511aef209188a084e8c7e79 (diff)
r421: use strict
Diffstat (limited to 'dh_strip')
-rwxr-xr-xdh_strip15
1 files changed, 8 insertions, 7 deletions
diff --git a/dh_strip b/dh_strip
index 7c851e2..86304f4 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