\$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 (file)
--- 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}
 /../