X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=dh_suidregister;h=7f6cd40fb96f66511fb922e91e4d7284a5fd0d5a;hb=18a0da8092ea9f3dc48bca92b36f592af25a608d;hp=19f29b18b85caaa672a7cb9a52adc146fed3110d;hpb=be1b3f7642d94ac371d61c721f8b41120ce1f46f;p=debhelper.git

diff --git a/dh_suidregister b/dh_suidregister
index 19f29b1..7f6cd40 100755
--- a/dh_suidregister
+++ b/dh_suidregister
@@ -2,24 +2,24 @@
 
 =head1 NAME
 
-dh_suidregister - obsolete suid registration program
+dh_suidregister - suid registration program (deprecated)
 
 =head1 SYNOPSIS
 
-  Do not run
+Do not run!
 
 =head1 DESCRIPTION
 
 This program used to register suid and sgid files with L<suidregister(1)>,
 but with the introduction of L<dpkg-statoverride(8)>, registration of files
-in this way is unnecessary, and even harmful, so this program should not be
-used.
+in this way is unnecessary, and even harmful, so this program is deprecated
+and should not be used.
 
 =head1 CONVERTING TO STATOVERRIDE
 
 Converting a package that uses this program to use the new statoverride
-mechanism is easy. Just remove the call to dh_suidregister from
-debian/rules, and add a versioned conflicts into your control file, as
+mechanism is easy. Just remove the call to B<dh_suidregister> from
+F<debian/rules>, and add a versioned conflicts into your F<control> file, as
 follows:
 
   Conflicts: suidmanager (<< 0.50)
@@ -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.