diff options
-rw-r--r-- | solenv/bin/modules/installer/archivefiles.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/solenv/bin/modules/installer/archivefiles.pm b/solenv/bin/modules/installer/archivefiles.pm index 6862c6f602dc..396da4fcae12 100644 --- a/solenv/bin/modules/installer/archivefiles.pm +++ b/solenv/bin/modules/installer/archivefiles.pm @@ -364,8 +364,7 @@ sub resolving_archive_flag if (( $use_internal_rights ) && ( ! $installer::globals::iswin )) { - my $value = sprintf("%o", (stat($newfile{'sourcepath'}))[2]); - $newfile{'UnixRights'} = substr($value, 3); + $newfile{'UnixRights'} = sprintf("%o", ($zip->memberNamed($zipname)->unixFileAttributes() & 07777); $infoline = "Setting unix rights for \"$newfile{'sourcepath'}\" to \"$newfile{'UnixRights'}\"\n"; push( @installer::globals::logfileinfo, $infoline); } |