I tried to use if (! -f $dest_name) as well, It is still not working. I
tried to print the $dest_name extracted, but I can not see it in STDOUT.
Why ? Are we modifying the right place ? Thanks
my $extract_name = $1;
my $dest_name = File::Spec->catfile($ENV{PAR_TEMP},
$extract_name);
if (! -f $dest_name ) {
* print "$dest_name\n";
* $member->extractToFileNamed($dest_name);
outs(qq(Extracting "$member_name" to "$dest_name"));
} else {
outs(qq(Skipping "$member_name" since it already exists
at "$dest_name"));
}
On 1/8/08, Steffen Mueller <[EMAIL PROTECTED]> wrote:
>
> Hi Henry,
>
> Henry Wu wrote:
> > Thanks for your help.
> > I just tried, Surprisingly the fix does not work. It seems that the fix
> > does not have any effect at all. I am still getting the same error.
>
> Could you try again with the -s test removed from the following line in
> that patch I posted earlier?
>
> So in par.pl,
> if (! -f $dest_name or -s _ != $member->uncompressedSize()) {
> would become
> if (! -f $dest_name) {
> as Scott originally suggested.
>
> If *that* works, then the -s _ file test and the uncompressedSize thingy
> of Archive::Zip disagree for some reason. If that doesn't work, ... I
> have to think about this some more.
>
> > I attached a very simple test perl script called testpp.pl. I attached
> > the two dlls used as well.
> > testpp.pl is very simple, only 10 lines. It just visita a https site and
> > sleep after that.
>
> Sorry, but I can't test it. It's only going to break on Windows and I
> currently have no access to that.
>
> Best regards,
> Steffen
>
