Override shebang with PERL_MM_SHEBANG=relocatable

- Relocatable shebangs are nice. Let's try to make them happen! - This PR is related to tickets Perl-Toolchain-Gang#38 and Perl-Toolchain-Gang#58
niklasholm · Jul 19, 2018 · 43b30ec · 43b30ec
1 parent 26e6703
commit 43b30ec
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm
@@ -1261,7 +1261,10 @@ sub _fixin_replace_shebang {
 
     # Now look (in reverse) for interpreter in absolute PATH (unless perl).
     my $interpreter;
-    if ( $cmd =~ m{^perl(?:\z|[^a-z])} ) {
+    if ( defined $ENV{PERL_MM_SHEBANG} && $ENV{PERL_MM_SHEBANG} eq "relocatable" ) {
+        $interpreter = "/usr/bin/env perl";
+    }
+    elsif ( $cmd =~ m{^perl(?:\z|[^a-z])} ) {
         if ( $Config{startperl} =~ m,^\#!.*/perl, ) {
             $interpreter = $Config{startperl};
             $interpreter =~ s,^\#!,,;