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: $!";
$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.