Updated French man page translation. Closes: #685560

[debhelper.git] / dh_suidregister

diff --git a/dh_suidregister b/dh_suidregister
index 19f29b18b85caaa672a7cb9a52adc146fed3110d..7f6cd40fb96f66511fb922e91e4d7284a5fd0d5a 100755 (executable)
--- 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.