Archive::Zip funnny return status

[Dan Muey]

        use Archive::Zip;
        ...
        my $member = $zip->memberNamed($zippedfile);
        my $rc = $member->extractToFileNamed($unzippedfile);
        if($rc =~ m/AZ_OK/) { print "ok -$rc-\n; } else { print "Bad -$rc-\n"; }

The code above *always* prints:
Bab -0-

But $unzippedfile is created properly, everytime, even if I delete it first and run it 
again!!! So shouldn't $rc have AZ_OK in it or even better be 1 on success?
Or is writing the text file in the zip archive to a local text file not success?
What could I be doing wrong/missing?

TIA

Dan

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]