perlquestion
fionbarr
I am trying:
<code>
my $zip = Archive::Zip->new();
$zip->addFile($renamed_file)->desiredCompressionLevel(0);
if( $zip->writeToFileNamed($zip_filename) != AZ_OK ) { print "write error...$!"; }
print "Added $renamed_file to $zip_filename\n";
}
</code>
and getting:
<code>
Can't call method "desiredCompressionLevel" on an undefined value at /home/fds/lang/perl/fdsPerl-20100809/lib/site_perl/5.12.1/Archive/Zip/Archive.pm line 249.
at /home/fds/lang/perl/fdsPerl-20100809/lib/site_perl/5.12.1/Archive/Zip/Archive.pm line 249
Archive::Zip::Archive::addFile('Archive::Zip::Archive=HASH(0x149ff318)', 'vm.don') called at ve.pl line 75
</code>