diff options
| author | Steve Hay <SteveHay@planit.com> | 2005-01-10 09:45:50 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2005-01-10 09:45:50 +0000 |
| commit | dbd14d13db8b3046be55e57200afd57e6bac0404 (patch) | |
| tree | 338f2525c0b7f23903ba527cb667f8e0b3d34ddf /win32 | |
| parent | e366167b68d6be89220462efe851f74fd54d029c (diff) | |
| download | perl-dbd14d13db8b3046be55e57200afd57e6bac0404.tar.gz | |
Get $Config{osvers} filled in on Win32
p4raw-id: //depot/perl@23776
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/config_sh.PL | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/win32/config_sh.PL b/win32/config_sh.PL index 3c144f6954..e1bc2dd691 100644 --- a/win32/config_sh.PL +++ b/win32/config_sh.PL @@ -70,6 +70,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{'cf_by'} = $ENV{USERNAME} unless $opt{'cf_by'}; $opt{'cf_email'} = $opt{'cf_by'} . '@' . (gethostbyname('localhost'))[0] unless $opt{'cf_email'}; |