Set permissions of zip contents to 666
Default is: 644, see
https://metacpan.org/pod/IO::Compress::Zip#ExtAttr-=%3E-$attr
Resolves #7
Change-Id: Ic06b365ad9c53af3b05f038bfd49ff1e74038a22
diff --git a/script/conllu2korapxml b/script/conllu2korapxml
index 53cdeca..910ced3 100755
--- a/script/conllu2korapxml
+++ b/script/conllu2korapxml
@@ -203,11 +203,11 @@
my ($fname) = @_;
if (defined $zip) {
$zip->newStream(Zip64 => 1, TextFlag => 1, Method => $_COMPRESSION_METHOD,
- Append => 1, Name => $fname)
+ Append => 1, Name => $fname, ExtAttr => 0100666 << 16)
or die "ERROR ('$fname'): zip failed: $ZipError\n";
} else {
$zip = new IO::Compress::Zip $outh, Zip64 => 1, TextFlag => 1,
- Method => $_COMPRESSION_METHOD, Append => 0, Name => "$fname"
+ Method => $_COMPRESSION_METHOD, Append => 0, Name => "$fname", ExtAttr => 0100666 << 16
or die "ERROR ('$fname'): zip failed: $ZipError\n";
}
}