Alan Stewart wrote:
Hate to keep talking to myself in public, but ....
I changed Heavy.pm line 134 from:
print $fh $member->contents;
to:
my $contents = $member->contents; print $fh $contents;
and I get the correct filesize ! Very strange. I am using Archive::Zip 1.06 and
Compress::Zlib 1.16.
Yes, it turns out that contents() has a "wantarray" in it, and
returns an extra status code when called in list context. Oh well.
I have fixed it in the snapshot using
print $fh scalar $member->contents;
Also fixed is the filetest issue (should be testing -e $filename,
not -e $file), and the very embarrasing reversal of interpretation
of PAR_CLEAN environment, in utils.c ( "? 1 : 0" should really be
"? 0 : 1").
Can you try out the snapshot version a bit? If it works for you,
I'll release it intact as an emergency 0.79.
Thanks,
/Autrijus/
