eleksir/misc
1
Fork 0
Code Activity

zip_nes_roms.pl: change compress option - assume binary data being compressed, shorten output message.

Browse Source
This commit is contained in:
Sergei
2017-02-11 11:35:05 +00:00
parent eca38af320
commit ef9b764ef1
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
zip_nes_roms.pl
View File

@@ -8,6 +8,7 @@ use warnings "all";
use IO::Compress::Zip qw(:all);
sub zlist(@);
my $L1;
opendir($L1, ".") || die;
my @L1DIR = readdir($L1);
@@ -41,8 +42,8 @@ sub zlist(@){
my $item;
foreach $item (@list) {
printf ("zipping: %s to %s.zip", $item, $item);
zip [$item] => "$item.zip", -Level => Z_BEST_COMPRESSION, Minimal => 1, TextFlag => 1;
printf ("zipping: %s", $item);
zip [$item] => "$item.zip", -Level => Z_BEST_COMPRESSION, Minimal => 1, TextFlag => 0;
if(length($ZipError) > 0){
printf (" Warning: unable to zip %s - %s\n", $item, $ZipError);