diff options
Diffstat (limited to 'x2p/find2perl.PL')
| -rw-r--r-- | x2p/find2perl.PL | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/x2p/find2perl.PL b/x2p/find2perl.PL index b89f01ea84..adcf42ace4 100644 --- a/x2p/find2perl.PL +++ b/x2p/find2perl.PL @@ -29,7 +29,9 @@ print OUT <<"!GROK!THIS!"; $Config{startperl} eval 'exec $Config{perlpath} -S \$0 \${1+"\$@"}' if \$running_under_some_shell; -my \$perlpath = '$Config{perlpath}'; +(my \$perlpath = <<'/../') =~ s/\\s*\\z//; +$Config{perlpath} +/../ !GROK!THIS! # In the following, perl variables are not expanded during extraction. |