44 lines
1.5 KiB
Plaintext
44 lines
1.5 KiB
Plaintext
$OpenBSD: patch-lib_Archive_Zip_Member_pm,v 1.3 2016/11/02 22:28:52 jasper Exp $
|
|
|
|
http://rt.cpan.org/Public/Bug/Display.html?id=61930
|
|
|
|
--- lib/Archive/Zip/Member.pm.orig Thu Aug 11 22:06:33 2016
|
|
+++ lib/Archive/Zip/Member.pm Wed Nov 2 20:27:03 2016
|
|
@@ -304,7 +304,7 @@ sub _mapPermissionsToUnix {
|
|
if ($format == FA_AMIGA) {
|
|
$attribs = $attribs >> 17 & 7; # Amiga RWE bits
|
|
$mode = $attribs << 6 | $attribs << 3 | $attribs;
|
|
- return $mode;
|
|
+ return sprintf("%d", $mode);
|
|
}
|
|
|
|
if ($format == FA_THEOS) {
|
|
@@ -324,7 +324,10 @@ sub _mapPermissionsToUnix {
|
|
|| $format == FA_QDOS
|
|
|| $format == FA_TANDEM) {
|
|
$mode = $attribs >> 16;
|
|
- return $mode if $mode != 0 or not $self->localExtraField;
|
|
+ if( $mode != 0 or not $self->localExtraField) {
|
|
+ $mode = sprintf("%d", $mode);
|
|
+ return sprintf("%d", $mode);
|
|
+ }
|
|
|
|
# warn("local extra field is: ", $self->localExtraField, "\n");
|
|
|
|
@@ -360,9 +363,13 @@ sub _mapPermissionsToUnix {
|
|
|
|
# keep previous $mode setting when its "owner"
|
|
# part appears to be consistent with DOS attribute flags!
|
|
- return $mode if ($mode & 0700) == (0400 | $attribs << 6);
|
|
+ if( ( $mode & 0700 ) == ( 0400 | $attribs << 6 )) {
|
|
+ $mode = sprintf("%d", $mode);
|
|
+ return sprintf("%d", $mode);
|
|
+ }
|
|
$mode = 0444 | $attribs << 6 | $attribs << 3 | $attribs;
|
|
- return $mode;
|
|
+ $mode = sprintf("%d", $mode);
|
|
+ return sprintf("%d", $mode);
|
|
}
|
|
|
|
sub unixFileAttributes {
|