* Fixed rpm unpacking.

This commit is contained in:
joey
2002-07-12 23:29:49 +00:00
parent ee2a176b24
commit c6b855ed5c
2 changed files with 9 additions and 2 deletions

View File

@@ -195,8 +195,9 @@ sub unpack {
print STDERR "WARNING: $file is owned by a group ($group) not on this system; using group root instead";
$gid=0;
}
chown($uid, $gid, $file) || die "failed chowning $file to $uid\:$gid\: $!";
chmod($mode, $file) || die "failed changing mode of $file to $mode\: $!";
next unless -e "$workdir/$file"; # skip broken links
chown($uid, $gid, "$workdir/$file") || die "failed chowning $file to $uid\:$gid\: $!";
chmod($mode, "$workdir/$file") || die "failed changing mode of $file to $mode\: $!";
}
}