summaryrefslogtreecommitdiff
path: root/x2p
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-05-18 17:05:40 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-05-18 17:05:40 +0000
commitc0393c90932dfbd5778207b0f3f2e6f99dc7fdb2 (patch)
treee8afdd50ee2ef8ffd6dc5a369256874e2dc90943 /x2p
parentacd7faf110c8745d00a590dff6da2ae2581aa730 (diff)
downloadperl-c0393c90932dfbd5778207b0f3f2e6f99dc7fdb2.tar.gz
\$escaping the $vars in !GROK!THIS! section is a good idea.
p4raw-id: //depot/perl@10157
Diffstat (limited to 'x2p')
-rw-r--r--x2p/s2p.PL4
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}
/../