Hey thanks for the promt reply, typing 'perl -MArchive::Zip -e1' in the command prompt does nothing

C:\>perl -MArchive::Zip -el

C:\>
[download]

No error, no anything. I'm using the GUI PPM to install packages, and it has installed correctly for every other module i've ever installed.

So you have the module Archive:Zip... though perhaps your module is too old. You should try to load it with the tags to import. On the command line, try

perl -MArchive::Zip=:ERROR_CODES,:CONSTANTS -e1
[download]

or just one of them, if it fails with both.

If that doesn't work, try upgrading the module. You could ask for the current version first:

perl -MArchive::Zip -le "print $Archive::Zip::VERSION"
[download]

(Windows quotes)

and check on CPAN if that version supports these tags, to see if that would likely fix it.

Hi,
it was 'e1' (1 like the number one, not like L), but anyway - that at least shows that the module is indeed installed properly as otherwise it would have had complained loudly.

Now I'd go and test some of the basic code supplied in Archive::Zip in a non-TK (a.k.a. known as command line) script on your box and verify that whatever you try to achieve works there. After that, put it back into your Tk-script and proceed. Aah - and don't forget to use strictures!

Regards,
svenXY

I looked up the module on CPAN, and according to the dependencies list it should install. Try downloading from CPAN. I do use Archive::Zip on my XP box running AS 5.10 and it works great. I grab all my modules from CPAN though.

The only other thing I can come up with is that you may have Cygwin in your path causing issues?

Ok, I've tried all the suggestions up to this point. Upgraded where possible, tried to do a simple non gui script (has the same problem), and have turned trict and warnings on and off with no change. Perhaps it is time to set my desk on fire?

use Archive::Zip;
use strict;
use warnings;

my $zip=Archive::Zip->New();
    
my @filestozip=('RED_b0.apf','RED_b1.apf','RED_b2.apf','RED_b3.apf');
my $filelist=$zip->addFile(@filestozip);

$zip->writeToFileNamed('testthis.zip');
[download]

my $filelist=$zip->addFile(@filestozip);

Two things to note here: (1) addFile() does not take a list of files, (2) it returns undef "if the name given does not represent a readable plain file or symbolic link".  I'm not entirely sure whether that's the issue in your case, but at least, it's worth checking the return value...

I cut and pasted this and got the following error: Can't locate object method "New" via package "Archive::Zip" at use_test.pl line 7.

What output do you get if you enable debugging via the following two environment variables?

(1) for DynaLoader (loading of XS modules, shared libs):

> set PERL_DL_DEBUG=1
> perl zipper.pl
[download]

(2) for execution tracing:

> set PERLDB_OPTS="AutoTrace NonStop"
> perl -ds zipper.pl
[download]

How far does the latter get? Does it terminate permaturely, i.e. what are the last lines executed?

(See perldebug for other options you might want to set with PERLDB_OPTS, e.g. frame=...)

I have a command line script named ziprecent.pl, reproduced below. It uses Archive::Zip and a few other modules, all part of Active State Perl, or available via ppm.

It works nicely for me with 5.10 as it did for 5.8 and with earlier Perl builds.
Does it work for you ?
If yes, perhaps you will find out what you are doing differently, by comparing your script with mine.
If not, perhaps there is a problem with your perl installation.

HTH

Rudif