From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 18 May 2001 17:05:40 +0000 (+0000)
Subject: \$escaping the $vars in !GROK!THIS! section is a good idea.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c0393c90932dfbd5778207b0f3f2e6f99dc7fdb2;p=p5sagit%2Fp5-mst-13.2.git

\$escaping the $vars in !GROK!THIS! section is a good idea.

p4raw-id: //depot/perl@10157
---

diff --git a/x2p/s2p.PL b/x2p/s2p.PL
index 69d0c04..70aa03d 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}
 /../