On 22 May 2004 at 16:54, the.noonings wrote:
> This used to work. Now I get an error message.
> It looks like there is no $PAR::LibCache{$0}
>
> C:\>type t5.pl
> use PAR;
> use Archive::Zip::MemberRead;
>
> print ("PAR LibCache is : ", $PAR::LibCache{$0}, " :\n");
>
> $fh = new Archive::Zip::MemberRead($PAR::LibCache{$0}, "my_data.txt");
> while (defined($line = $fh->getline()))
> {
> print $fh->input_line_number . "#: $line\n";
> }
>
> print "$0 Done\n";
> C:\>
> C:\>type my_data.txt
> line_1
> line_2
> line_3
> C:\>
> C:\>pp -M c:\my_data.txt -o t5.exe t5.pl
> C:\>
> C:\>t5.exe
> PAR LibCache is : :
> Archive::Zip::MemberRead::new needs a zip and filename, zip and member, or member at
> Archive/Zip/MemberRead.pm line 91.
>
If you run it with the full pathname:
C:\>c:\t5.exe
it will work.
Previously the %LibCache key was $0 the command line was a relative path, now the key
seems to be the exe with full path in DOS short form (8.3) if $0 is relative.
Alan Stewart
