From 1d65be3a6a280824a66294902ffa798d54d7fac2 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Fri, 7 Jun 2002 16:12:20 +0000 Subject: There are many ways to skin a Win32 (from Sarathy). p4raw-id: //depot/perl@17063 --- pod/perlport.pod | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/pod/perlport.pod b/pod/perlport.pod index 9ce42f293c..d589423c0d 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. +There are also Win32::IsWinNT() and Win32::IsWin95(), tryC. +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: -- cgit v1.2.1