diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-18 17:05:40 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-18 17:05:40 +0000 |
| commit | c0393c90932dfbd5778207b0f3f2e6f99dc7fdb2 (patch) | |
| tree | e8afdd50ee2ef8ffd6dc5a369256874e2dc90943 /x2p/s2p.PL | |
| parent | acd7faf110c8745d00a590dff6da2ae2581aa730 (diff) | |
| download | perl-c0393c90932dfbd5778207b0f3f2e6f99dc7fdb2.tar.gz | |
\$escaping the $vars in !GROK!THIS! section is a good idea.
p4raw-id: //depot/perl@10157
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} /../ |