Change 29533 by [EMAIL PROTECTED] on 2006/12/12 18:02:19
Restore (differently) the setting of $Config{osvers} on Win32
that was removed by #29509
Affected files ...
... //depot/perl/win32/config_sh.PL#40 edit
Differences ...
==== //depot/perl/win32/config_sh.PL#40 (text) ====
Index: perl/win32/config_sh.PL
--- perl/win32/config_sh.PL#39~29509~ 2006-12-11 05:21:28.000000000 -0800
+++ perl/win32/config_sh.PL 2006-12-12 10:02:19.000000000 -0800
@@ -73,8 +73,13 @@
$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'} = "4.0";
+my $ver = `ver 2>nul`;
+if ($ver =~ /Version (\d+\.\d+)/) {
+ $opt{'osvers'} = $1;
+}
+else {
+ $opt{'osvers'} = '4.0';
+}
if (exists $opt{cc}) {
# cl and bcc32 version detection borrowed from Test::Smoke's configsmoke.pl
End of Patch.
