summaryrefslogtreecommitdiff
path: root/dh_suidregister
diff options
context:
space:
mode:
authorjoey <joey>2001-02-17 03:45:51 +0000
committerjoey <joey>2001-02-17 03:45:51 +0000
commit7d8cbb20a8cfe12fd50cc82b0e52c1ac10b8993b (patch)
treea435d987fdb976047404f25b8456520da1602ed7 /dh_suidregister
parent88e188b9522cee85a86e4a4e0e76cdf71e0c891a (diff)
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.
Diffstat (limited to 'dh_suidregister')
-rwxr-xr-xdh_suidregister4
1 files changed, 2 insertions, 2 deletions
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);