X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FApp%2FFatPacker.pm;fp=lib%2FApp%2FFatPacker.pm;h=653a2480de04eb4e72e834217f942b66531b77f1;hb=0858ab66aa74dba45191596ee7b33838e208d911;hp=75ba087a78e4821efb4f6fbbe2f523257b78c5c9;hpb=cb50b68f68147a118d4dfafcbab3f2fa0cddcf44;p=p5sagit%2FApp-FatPacker.git diff --git a/lib/App/FatPacker.pm b/lib/App/FatPacker.pm index 75ba087..653a248 100644 --- a/lib/App/FatPacker.pm +++ b/lib/App/FatPacker.pm @@ -234,7 +234,19 @@ sub script_command_file { '$fatpacked{'.perlstring($_).qq!} = <<'${name}';\n! .qq!${data}${name}\n!; } sort keys %files; - print join "\n", $start, @segments, $end; + my $shebang = ""; + my $script = ""; + if ( defined $file and -r $file ) { + open my $fh, "<", $file or die("Can't read $file: $!"); + $shebang = <$fh>; + $script = join "", <$fh>; + close $fh; + unless ( index($shebang, '#!') == 0 ) { + $script = $shebang . $script; + $shebang = ""; + } + } + print join "\n", $shebang, $start, @segments, $end, $script; } =encoding UTF-8 @@ -248,10 +260,7 @@ App::FatPacker - pack your dependencies onto your script file $ fatpack trace myscript.pl $ fatpack packlists-for `cat fatpacker.trace` >packlists $ fatpack tree `cat packlists` - $ (head -n1 myscript.pl |grep '^#!'; fatpack file; cat myscript.pl) >myscript.packed.pl - -The C code pulls out the Unix shebang -line, if there is one, and injects it at the start of the packed script. + $ fatpack file myscript.pl >myscript.packed.pl See the documentation for the L script itself for more information.