At 10:14 PM 9/11/97 +0200, Achim Bohnet wrote:
With 5.003 the special variable $^O was introduced. It's existance (for
older perls) and the NT specific value could be used to determine the
operation system.
$^O The name of the operating system under which this copy of Perl was
built, as determined during the configuration process. The value
is identical to $Config{'osname'}.
Try
perl -le 'print $^O'
to see what's used on NT. (Since 5.004 a NT port is part of the
official perl distribution)
This returns "MSWin32" under Windows 95 and presumably under Windows NT.
Thus
if (($^O eq "MSWin32") || (($tmp = $ENV{'COMSPEC'}) && ($tmp =~
/[a-zA-Z]:\\/) && (-e $tmp)))
is One Way to apply this in osinit.pl.
-- SP