Merge branch 'master' of ssh://git.debian.org/git/debhelper/debhelper

[debhelper.git] / dh_suidregister

diff --git a/dh_suidregister b/dh_suidregister
index 19f29b18b85caaa672a7cb9a52adc146fed3110d..3bc9bd98ce858320b21406948b23c48ca0517561 100755 (executable)
--- a/dh_suidregister
+++ b/dh_suidregister
@@ -6,7 +6,7 @@ dh_suidregister - obsolete suid registration program
 
 =head1 SYNOPSIS
 
-  Do not run
+Do not run!
 
 =head1 DESCRIPTION
 
@@ -56,7 +56,7 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
                @files=split(/\n/,`find $tmp -type f -perm +6000`);
 
                # Strip the debian working directory off of the filenames.
-               $tostrip="tmp/";
+               $tostrip="$tmp/";
        }
        else {
                # We will strip leading /'s, so the user can feed this
@@ -73,7 +73,7 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
                # Create the sed string that will be used to
                # fill in the blanks in the autoscript files.
                # Fill with the owner, group, and perms of the file.
-               my (undef,undef,$mode,undef,$uid,$gid,undef) = stat("$tmp/$file");
+               my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat("$tmp/$file");
                # Now come up with the user and group names for the uid and
                # gid.
                my $user=getpwuid($uid);
@@ -104,7 +104,6 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
        }
 
        if (@files) {
-               # So we would have registered some files before.
                warning("This program should no longer be used. Please read the dh_suidregister(1) man page.");
                $notused=0;
        }
@@ -117,7 +116,7 @@ if ($notused) {
 
 =head1 SEE ALSO
 
-L<debhelper(1)>
+L<debhelper(7)>
 
 This program is a part of debhelper.