From c0393c90932dfbd5778207b0f3f2e6f99dc7fdb2 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 18 May 2001 17:05:40 +0000
Subject: [PATCH] \$escaping the $vars in !GROK!THIS! section is a good idea.

p4raw-id: //depot/perl@10157
---
 x2p/s2p.PL | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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}
 /../
-- 
2.7.4