From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 7 Jun 2002 16:12:20 +0000 (+0000)
Subject: There are many ways to skin a Win32 (from Sarathy).
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1d65be3a6a280824a66294902ffa798d54d7fac2;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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: