There are many ways to skin a Win32 (from Sarathy).

p4raw-id: //depot/perl@17063

diff --git a/pod/perlport.pod b/pod/perlport.pod
index 9ce42f2..d589423 100644 (file)
--- a/pod/perlport.pod
+++ b/pod/perlport.pod
@@ -832,8 +832,11 @@ Win32::GetOSVersion().  For example:
         print +('3.1','95','NT')[$os_version_info[4]],"\n";
     }
 
-There are also Win32::IsWinNT() and Win32::IsWin95(),
-try C<perldoc Win32>.
+There are also Win32::IsWinNT() and Win32::IsWin95(), tryC<perldoc Win32>.
+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
 
 Also see: