test -d /system is a bit too generic test for VOS

[p5sagit/p5-mst-13.2.git] / x2p / s2p.PL

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