X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=x2p%2Fs2p.PL;h=29864b418a678077d4099711739be2f55683e774;hb=9c7d862108a3f02f3db65204f8154cdfe689040e;hp=fe82b02325735731c73eda55eba726f6d1e6b835;hpb=4633a7c4bad06b471d9310620b7fe8ddd158cccd;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/x2p/s2p.PL b/x2p/s2p.PL
index fe82b02..29864b4 100644
--- a/x2p/s2p.PL
+++ b/x2p/s2p.PL
@@ -15,8 +15,7 @@ use File::Basename qw(&basename &dirname);
 chdir(dirname($0));
 ($file = basename($0)) =~ s/\.PL$//;
 $file =~ s/\.pl$//
-	if ($Config{'osname'} eq 'VMS' or
-	    $Config{'osname'} eq 'OS2');  # "case-forgiving"
+	if ($^O eq 'VMS' or $^O eq 'os2');  # "case-forgiving"
 
 open OUT,">$file" or die "Can't create $file: $!";
 
@@ -29,7 +28,7 @@ print OUT <<"!GROK!THIS!";
 $Config{'startperl'}
     eval 'exec perl -S \$0 "\$@"'
 	if 0;
-\$startperl = $Config{startperl};
+\$startperl = "$Config{startperl}";
 !GROK!THIS!
 
 # In the following, perl variables are not expanded during extraction.