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;