Archive::Zip - bad file descriptor ?

[MoshiachNow]

Hi,

The script on my Windows looks as following. I chdir to the
directory where all my files and folders to be zipped exist.Then I'm calling a procedire ZIP as following :

&ZIP("Marksets ");
&ZIP("PrintConsole.reg");
. . .


sub ZIP {
$NAME=shift;
$NEWNAME=shift;
if (-f $NAME) {
warn "error zipping $NAME !!! $!" unless $zip- >addFileOrDirectory("$NAME") == AZ_OK;
} else {
warn "error zipping $NAME !!! $!" unless $zip->addTree("$NAME","$NAME") == AZ_OK;
}
}

The warning I get look like:

error zipping PrintConsole.reg !!! Bad file descriptor at
script/rehost.pl line 2159.
error zipping KDI-PGY2500_SysInfo.nfo !!! Bad file descriptor at script/rehost.pl line 2159.
error zipping OS_PRINTERS !!! Bad file descriptor at script/rehost.pl line 2159.

(line 2159 is the one with the $zip->addFile("$NAME") ).

The zip file is OK and holds all files and folders !
Thanks




Long live king Moshiach !

http://www.7for70.com/