diff options
| author | Jan Dubois <jand@activestate.com> | 2006-12-08 11:07:06 -0800 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-12-11 13:21:28 +0000 |
| commit | cf2f24a416dd5be7d3f4153bf173ec2a57eaed43 (patch) | |
| tree | 5c890bc394cfd5ee124b8e0ec263e04104cbc10b /win32/config_sh.PL | |
| parent | c79bbeaf9959de37889eda1f77c9af1212f538ec (diff) | |
| download | perl-cf2f24a416dd5be7d3f4153bf173ec2a57eaed43.tar.gz | |
First patch from:
Subject: [PATCH] Move Win32::* functions from win32/win32.c to ext/Win32/Win32.xs
Message-ID: <lc9kn2tb0p5sdd4q69rbc7067r4imar59r@4ax.com>
p4raw-id: //depot/perl@29509
Diffstat (limited to 'win32/config_sh.PL')
| -rw-r--r-- | win32/config_sh.PL | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/win32/config_sh.PL b/win32/config_sh.PL index 6aa2a327a0..b4af906757 100644 --- a/win32/config_sh.PL +++ b/win32/config_sh.PL @@ -73,7 +73,8 @@ $opt{INST_VER} =~ s|~VERSION~|$opt{VERSION}|g; $opt{'version_patchlevel_string'} = "version $opt{PERL_VERSION} subversion $opt{PERL_SUBVERSION}"; $opt{'version_patchlevel_string'} .= " patchlevel $opt{PERL_PATCHLEVEL}" if exists $opt{PERL_PATCHLEVEL}; -$opt{'osvers'} = join '.', (Win32::GetOSVersion())[1,2]; +#$opt{'osvers'} = join '.', (Win32::GetOSVersion())[1,2]; +$opt{'osvers'} = "4.0"; if (exists $opt{cc}) { # cl and bcc32 version detection borrowed from Test::Smoke's configsmoke.pl @@ -99,7 +100,7 @@ $opt{libpth} = mungepath($opt{libpth}) if exists $opt{libpth}; $opt{incpath} = mungepath($opt{incpath}) if exists $opt{incpath}; # some functions are not available on Win9x -if (defined(&Win32::IsWin95) && Win32::IsWin95()) { +unless (defined $ENV{SYSTEMROOT}) { # SystemRoot has been introduced by WinNT $opt{d_flock} = 'undef'; $opt{d_link} = 'undef'; } |