Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re: __FILE__ fails in app built with PAR::Packer

by Anonymous Monk
on Sep 10, 2011 at 22:38 UTC ( #925294=note: print w/ replies, xml ) Need Help??


in reply to __FILE__ fails in app built with PAR::Packer

See ppselfdoc.PL, PAR::Environment#PAR_0, perlsyn#Plain Old Comments (Not!)

http://search.cpan.org/dist/PAR-Packer/MANIFEST
http://search.cpan.org/src/RSCHUPP/PAR-Packer-1.010/contrib/docs/where_is_it.txt
http://search.cpan.org/src/RSCHUPP/PAR-Packer-1.010/contrib/docs/who_am_i.txt

What par ends up running is %PAR_TEMP%\f5cabe72.pl

package main; shift @INC; #line 1 "script/main.pl" if (defined $ENV{PAR_APP_REUSE}) { warn "Executable was created without the --reusable option. See 'p +erldoc pp'.\n"; exit(1); } my $zip = $PAR::LibCache{$ENV{PAR_PROGNAME}} || Archive::Zip->new(__FI +LE__); my $member = eval { $zip->memberNamed('script/__FILE__.925167.pl') } or die qq(main.pl: Can't open perl script "script/__FILE__.925 +167.pl": No such file or directory ($zip)); PAR::_run_member($member, 1);

And %PAR_TEMP%\0e790715.pl

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;
Compare with %PAR_TMP%\inc\lib\strict.pm
#line 1 "strict.pm" package strict;

In an earlier par version it was

#line 1 "C:/perl/5.10.1/lib/strict.pm" package strict;

So yeah, those #line number "file" directives have gotten out of sync with reality and evolved into uselessness, as have the values in %INC  strict.pm => /loader/HASH(0xaa240c)/strict.pm

This decision isn't explained anywhere

I don't see any reason for those values not to be absolute paths, esp the %INC values


Comment on Re: __FILE__ fails in app built with PAR::Packer
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://925294]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (11)
As of 2014-09-19 19:41 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (145 votes), past polls