diff options
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'}; |