On Thu, Oct 30, 2003 at 11:33:41PM -0500, Randy W. Sims wrote:
In MM.pm change $Is{UWIN} = 1 if $^O eq 'uwin'; to $Is{UWIN} = 1 if $^O =~ /uwin(?:-nt)/;
You mean /^uwin(-nt)?$/ right?
Thanks. perlport could also use some information about uwin's $^O.
Doh. I meant to type /uwin(?:-nt)?/, but your way works too :)
$ perl -e 'print $^O' uwin-nt $ perl -V:archname archname='i686-uwin-nt';
I'm theorizing that on Win9x the '-nt' would be absent.
--
A little learning is a dang'rous thing;
Drink deep, or taste not the Pierian spring;
There shallow draughts intoxicate the brain;
And drinking largely sobers us again.
- Alexander Pope