From 43b30ec224bcf0d673b8c03979e93bde355c3c7e Mon Sep 17 00:00:00 2001
From: "Salve J. Nilsen" <sjn-gitlab-ksat@foo.no>
Date: Thu, 28 Jun 2018 18:27:40 +0200
Subject: [PATCH] Override shebang with PERL_MM_SHEBANG=relocatable

- Relocatable shebangs are nice. Let's try to make them happen!
- This PR is related to tickets #38 and #58
---
 lib/ExtUtils/MM_Unix.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm
index ad65b0495..d6ba27145 100644
--- 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,^\#!,,;