package main; shift @INC; #line 1 "script/main.pl" if (defined $ENV{PAR_APP_REUSE}) { warn "Executable was created without the --reusable option. See 'perldoc pp'.\n"; exit(1); } my $zip = $PAR::LibCache{$ENV{PAR_PROGNAME}} || Archive::Zip->new(__FILE__); my $member = eval { $zip->memberNamed('script/__FILE__.925167.pl') } or die qq(main.pl: Can't open perl script "script/__FILE__.925167.pl": No such file or directory ($zip)); PAR::_run_member($member, 1); #### package main; shift @INC; #line 1 "script/__FILE__.925167.pl" # works in plain perl # fails with this compilation line: # pp -P -r -v 99 -o packed.pl __FILE__.925167.pl BEGIN { use File::Spec; for (@INC) { if ( !ref $_ && -d $_ && !File::Spec->file_name_is_absolute($_) ) { $_ = File::Spec->rel2abs($_); } } } sub hello { my $file = __FILE__; warn "My file name is $file. Here is my contents:"; open(my $fh, "<", $file); my @data = <$fh>; warn "@data"; } hello(); 1; #### #line 1 "strict.pm" package strict; #### #line 1 "C:/perl/5.10.1/lib/strict.pm" package strict;