From 7d8cbb20a8cfe12fd50cc82b0e52c1ac10b8993b Mon Sep 17 00:00:00 2001
From: joey <joey>
Date: Sat, 17 Feb 2001 03:45:51 +0000
Subject: [PATCH] r447:    * Corrected some uninitialized value stuff in
 dh_suidregister (actually      quite a bad bug).    * dh_installman: fixed
 variable socoping error, so file conversions      should work now.

---
 debian/changelog | 9 +++++++++
 debian/control   | 2 +-
 dh_installman    | 8 ++++----
 dh_suidregister  | 4 ++--
 4 files changed, 16 insertions(+), 7 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index b9efd20..7a235fc 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,12 @@
+debhelper (3.0.6) unstable; urgency=low
+
+  * Corrected some uninitialized value stuff in dh_suidregister (actually
+    quite a bad bug).
+  * dh_installman: fixed variable socoping error, so file conversions
+    should work now.
+
+ -- Joey Hess <joeyh@debian.org>  Fri, 16 Feb 2001 14:15:02 -0800
+
 debhelper (3.0.5) unstable; urgency=low
 
   * Updated dh_perl to a new version for the new perl organization and
diff --git a/debian/control b/debian/control
index b53ebc7..eaef624 100644
--- a/debian/control
+++ b/debian/control
@@ -3,7 +3,7 @@ Section: devel
 Priority: optional
 Maintainer: Joey Hess <joeyh@debian.org>
 Build-Depends-Indep: perl-5.6, fileutils (>= 4.0-2.1), file (>= 3.23-1)
-Standards-Version: 3.5.0.0
+Standards-Version: 3.5.1.0
 
 Package: debhelper
 Architecture: all
diff --git a/dh_installman b/dh_installman
index b2a95ba..9c71774 100755
--- a/dh_installman
+++ b/dh_installman
@@ -61,6 +61,9 @@ interface. Use this program instead.
 
 init();
 
+my @sofiles;
+my @sodests;
+
 foreach my $package (@{$dh{DOPACKAGES}}) {
 	my $tmp=tmpdir($package);
 	my $file=pkgfile($package,"manpages");
@@ -137,8 +140,7 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
 	}
 
 	# Now the .so conversion.
-	my @sofiles;
-	my @sodests;
+	@sofiles=@sodests=();
 	foreach my $dir (qw{usr/share/man usr/X11R6/man}) {
 		if (-e "$tmp/$dir") {
 			find(\&find_so_man, "$tmp/$dir");
@@ -152,8 +154,6 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
 }
 
 # Check if a file is a .so man page, for use by File::Find.
-my @sofiles;
-my @sodests;
 sub find_so_man {
 	# The -s test is becuase a .so file tends to be small. We don't want
 	# to open every man page. 1024 is arbitrary.
diff --git a/dh_suidregister b/dh_suidregister
index 19f29b1..64c98b7 100755
--- a/dh_suidregister
+++ b/dh_suidregister
@@ -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);
-- 
2.39.2