Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?

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

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://853897]
[RonW]: Glad to be helpful

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (8)
As of 2017-02-27 18:22 GMT
Find Nodes?
    Voting Booth?
    Before electricity was invented, what was the Electric Eel called?

    Results (390 votes). Check out past polls.