1*4882a593SmuzhiyunFrom e8e095b9c71c58f8197d6315359446b6b084cb2b Mon Sep 17 00:00:00 2001
2*4882a593SmuzhiyunFrom: Alexander Kanavin <alex.kanavin@gmail.com>
3*4882a593SmuzhiyunDate: Tue, 5 Jun 2018 14:58:42 +0300
4*4882a593SmuzhiyunSubject: [PATCH] Somehow this module breaks through the perl wrapper and
5*4882a593Smuzhiyun declares perl binary to be 'perl.real'. This patch forces it back to perl.
6*4882a593Smuzhiyun
7*4882a593SmuzhiyunUpstream-Status: Inappropriate [oe-core specific]
8*4882a593SmuzhiyunSigned-off-by: Alexander Kanavin <alex.kanavin@gmail.com>
9*4882a593Smuzhiyun---
10*4882a593Smuzhiyun cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm | 4 ++++
11*4882a593Smuzhiyun 1 file changed, 4 insertions(+)
12*4882a593Smuzhiyun
13*4882a593Smuzhiyundiff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
14*4882a593Smuzhiyunindex 948c476..f537526 100644
15*4882a593Smuzhiyun--- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
16*4882a593Smuzhiyun+++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
17*4882a593Smuzhiyun@@ -1110,6 +1110,9 @@ WARNING
18*4882a593Smuzhiyun     }
19*4882a593Smuzhiyun
20*4882a593Smuzhiyun     foreach my $name (@$names){
21*4882a593Smuzhiyun+        # Getting MakeMaker.pm use perl wrapper instead of 'perl.real' directly
22*4882a593Smuzhiyun+        $name =~ s/perl\.real/perl/ if ($name =~ /perl\.real/);
23*4882a593Smuzhiyun+
24*4882a593Smuzhiyun         my ($abs, $use_dir);
25*4882a593Smuzhiyun         if ($self->file_name_is_absolute($name)) {     # /foo/bar
26*4882a593Smuzhiyun             $abs = $name;
27*4882a593Smuzhiyun@@ -2006,6 +2009,7 @@ sub init_PERL {
28*4882a593Smuzhiyun
29*4882a593Smuzhiyun     $self->{PERL} ||=
30*4882a593Smuzhiyun         $self->find_perl(5.0, \@perls, \@defpath, $Verbose );
31*4882a593Smuzhiyun+
32*4882a593Smuzhiyun
33*4882a593Smuzhiyun     my $perl = $self->{PERL};
34*4882a593Smuzhiyun     $perl =~ s/^"//;
35