On Mon, 18 Aug 2003 11:23:06 -0700, "$Bill Luebkert"
<[EMAIL PROTECTED]> wrote:
>Arms, Mike wrote:
>
>> Looks like one too many "}," here:
>>
>> 4 => { 0 => { 1 => 'Windows 95',
>> 2 => 'Windows NT 4.0' }, },
>>
>> and the close should be after:
>>
>> 90 => { 1 => 'Windows Me' },
>>
>> So the tested code becomes:
>>
>> my %maj_min_id = (
>> 3 => { 51 => { 0 => 'Windows NT 3.51' }, },
>> 4 => { 0 => { 1 => 'Windows 95',
>> 2 => 'Windows NT 4.0' },
>> 10 => { 1 => 'Windows 98' },
>> 90 => { 1 => 'Windows Me' }, },
>> 5 => { 0 => { 2 => 'Windows 2000' },
>> 1 => { 2 => 'Windows XP' },
>> 2 => { 2 => 'Windows Server 2003' }, },
>> );
>
>
>Caught me again - I haven't been to bed yet. :(
>I moved the closing '},' up with the 95 line by mistake.
>I fixed the indenting above. Going to bed now.
You may want to look at Win32::GetOSName() is Perl\site\lib\Win32.pm.
It also differentiates Win32s and the various 95 (original, a, b1, b2)
and 98 releases.
The released version still gets Win2003 wrong (microsoft changed th
minor id between the RCs and the final release), but this has already
been fixed for the future.
Cheers,
-Jan
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
