diff options
Diffstat (limited to 'x2p/find2perl.PL')
| -rw-r--r-- | x2p/find2perl.PL | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/x2p/find2perl.PL b/x2p/find2perl.PL index 4d74d06e1b..b89f01ea84 100644 --- a/x2p/find2perl.PL +++ b/x2p/find2perl.PL @@ -29,7 +29,7 @@ print OUT <<"!GROK!THIS!"; $Config{startperl} eval 'exec $Config{perlpath} -S \$0 \${1+"\$@"}' if \$running_under_some_shell; -my \$perlpath = "$Config{perlpath}"; +my \$perlpath = '$Config{perlpath}'; !GROK!THIS! # In the following, perl variables are not expanded during extraction. @@ -334,10 +334,8 @@ END if (exists $init{doexec}) { print <<'END'; -BEGIN { - require Cwd; - my $cwd = Cwd::cwd(); -} +use Cwd (); +my $cwd = Cwd::cwd(); sub doexec { my $ok = shift; |