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_suidregister | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

(limited to 'dh_suidregister')

diff --git a/dh_suidregister b/dh_suidregister
index 6a1efafa..9e30bf39 100755
--- a/dh_suidregister
+++ b/dh_suidregister
@@ -2,31 +2,32 @@
 #
 # Obsolete.
 
+use strict;
 use Debian::Debhelper::Dh_Lib;
 init();
 
 my $notused=1;
 
-foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
-	$TMP=tmpdir($PACKAGE);
-	$suid=pkgfile($PACKAGE,"suid");
+foreach my $package (@{$dh{DOPACKAGES}}) {
+	my $tmp=tmpdir($package);
+	my $suid=pkgfile($package,"suid");
 
 	# All this code is here just to see if we would have done something
 	# before..
 
-	@files=();
+	my @files;
 	if ($suid) {
-		@files=filearray($suid, $TMP);
+		@files=filearray($suid, $tmp);
 	}
 
-	if (($PACKAGE eq $dh{FIRSTPACKAGE} || $dh{PARAMS_ALL}) && @ARGV) {
+	if (($package eq $dh{FIRSTPACKAGE} || $dh{PARAMS_ALL}) && @ARGV) {
 		push @files, @ARGV;
 	}
 
 	if (! @files && ! $suid) {
 		# No files specified (and no empty debian/suid file), so
 		# guess what files to process.
-		@files=split(/\n/,`find $TMP -type f -perm +6000`);
+		@files=split(/\n/,`find $tmp -type f -perm +6000`);
 	}
 
 	if (@files) {
-- 
cgit v1.2.3