use autodie qw' system '; for my $opts ( "", "-n -x", "-x", "-c" ){ my $out = "use-mojo$opts.exe"; $out =~ s/\s/_/g; my $log = "log-$out.txt"; my $cmd = "pp -v 99 -o $out use-mojo.pl $opts >$log 2>&1 "; print "$cmd\n"; system $cmd; } __END__ pp -v 99 -o use-mojo.exe use-mojo.pl >log-use-mojo.exe.txt 2>&1 pp -v 99 -o use-mojo-n_-x.exe use-mojo.pl -n -x >log-use-mojo-n_-x +.exe.txt 2>&1 pp -v 99 -o use-mojo-x.exe use-mojo.pl -x >log-use-mojo-x.exe.txt + 2>&1 pp -v 99 -o use-mojo-c.exe use-mojo.pl -c >log-use-mojo-c.exe.txt + 2>&1
So there is line number confusion.# Environment variable if ($ENV{MOJO_HOME}) { my @parts = File::Spec->splitdir(abs_path $ENV{MOJO_HOME}); $self->{_parts} = \@parts; return $self; }
Using
seems to remedy this situation. Oddly BEGIN { eval "use Mojolicious::Lite;" } also works.require Mojolicious::Lite;
Thats bizzare, you should submit a bug report :)
In reply to Re: Building a Mojolicious app with PAR::Packer
by Anonymous Monk
in thread Building a Mojolicious app with PAR::Packer
by Hue-Bond
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |