diff options
author | joey <joey> | 2001-02-17 03:45:51 +0000 |
---|---|---|
committer | joey <joey> | 2001-02-17 03:45:51 +0000 |
commit | 7d8cbb20a8cfe12fd50cc82b0e52c1ac10b8993b (patch) | |
tree | a435d987fdb976047404f25b8456520da1602ed7 /dh_suidregister | |
parent | 88e188b9522cee85a86e4a4e0e76cdf71e0c891a (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-x | dh_suidregister | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/dh_suidregister b/dh_suidregister index 19f29b18..64c98b73 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); |