X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fperlport.pod;h=fa1d70bea81534a64a47fc9f5ff11ad6fff3d355;hb=443f6d0184e0648ec41d1125072fe0e461cb089b;hp=d589423c0d7a8a65a2f5b8a1877d7c29f1be73d5;hpb=e286a5ec0cccc8f0b0d7da27b7277e16426eba89;p=p5sagit%2Fp5-mst-13.2.git diff --git a/pod/perlport.pod b/pod/perlport.pod index d589423..fa1d70b 100644 --- a/pod/perlport.pod +++ b/pod/perlport.pod @@ -832,8 +832,8 @@ Win32::GetOSVersion(). For example: print +('3.1','95','NT')[$os_version_info[4]],"\n"; } -There are also Win32::IsWinNT() and Win32::IsWin95(), tryC. -The very portable POSIX::uname() will work too: +There are also Win32::IsWinNT() and Win32::IsWin95(), try +C. The very portable POSIX::uname() will work too: c:\> perl -MPOSIX -we "print join '|', uname" Windows NT|moonru|5.0|Build 2195 (Service Pack 2)|x86