diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-05-20 16:48:29 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-05-20 16:48:29 +0000 |
| commit | 94fa653cf3a9954f2dc6ff832a54fa0a30c4c094 (patch) | |
| tree | 6e727e74af2bf40e0d0cd13f9ea2b13ada309cec /x2p/s2p.PL | |
| parent | 68bd741440800c6281f02247ca3e0bbc0ed1a0ea (diff) | |
| parent | 3f7d42d86a70d697ec5a8fca00c89984282b399e (diff) | |
| download | perl-94fa653cf3a9954f2dc6ff832a54fa0a30c4c094.tar.gz | |
Integrate mainline
p4raw-id: //depot/perlio@10170
Diffstat (limited to 'x2p/s2p.PL')
| -rw-r--r-- | x2p/s2p.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/x2p/s2p.PL b/x2p/s2p.PL index 69d0c04c27..70aa03d98d 100644 --- a/x2p/s2p.PL +++ b/x2p/s2p.PL @@ -29,8 +29,8 @@ print OUT <<"!GROK!THIS!"; $Config{startperl} eval 'exec $Config{perlpath} -S \$0 \${1+"\$@"}' if \$running_under_some_shell; -my $startperl; -my $perlpath; +my \$startperl; +my \$perlpath; (\$startperl = <<'/../') =~ s/\\s*\\z//; $Config{startperl} /../ |