Test failure

[the.noonings]

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.