diff options
Diffstat (limited to 'dh_suidregister')
| -rwxr-xr-x | dh_suidregister | 15 |
1 files changed, 8 insertions, 7 deletions
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) { |