I wrote:
> $Bill Luebkert wrote:
> >     $windoze = 1 if $^O eq 'MSWin32';
> 
> Is this going to break on 64-bit Windows? Just curious. Maybe 
> we should all start using
> 
> $windoze = 1 if index($^O, 'MSWin');

Oops! Index will return 0 in this case. You could use:

  $windoze = !index($^O, 'MSWin');

although that seems a little counter-intuitive. Another option:

  $windoze = $^O =~ /^MSWin/;

- Mark.

_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to