Select Code to Download

Select or download this

  my $zip = Archive::Zip->new();
  $zip->addFile($renamed_file)->desiredCompressionLevel(0);    
  if( $zip->writeToFileNamed($zip_filename) != AZ_OK ) {     print "wr
+ite error...$!"; }
      print "Added $renamed_file to $zip_filename\n";
}

Select or download this

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(0x1
+49ff318)', 'vm.don') called at ve.pl line 75