Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: problem with Archive::Zip

by talexb (Canon)
on Aug 09, 2010 at 18:28 UTC ( #853897=note: print w/ replies, xml ) Need Help??


in reply to problem with Archive::Zip

I'd recommend more defensive programming, as follows:

my $zip = Archive::Zip->new() or croak "Failed to create a new archive"; $zip->addFile($renamed_file)->desiredCompressionLevel(0) or croak "Failed to add $renamed_file) to archive"; if( $zip->writeToFileNamed($zip_filename) != AZ_OK ) { croak "Failed to write to archive: $!"; } print "Added $renamed_file to $zip_filename\n";

I've merely copied your use of $! in the last croak; I'm not sure if that ever gets populated by Archive::Zip.

Alex / talexb / Toronto

"Groklaw is the open-source mentality applied to legal research" ~ Linus Torvalds


Comment on Re: problem with Archive::Zip
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://853897]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (9)
As of 2014-07-23 06:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (133 votes), past polls