diff options
author | Steve Hay <SteveHay@planit.com> | 2007-07-09 11:43:09 +0000 |
---|---|---|
committer | Steve Hay <SteveHay@planit.com> | 2007-07-09 11:43:09 +0000 |
commit | a9277f440b7800bab095ac55322c223f4308cd3e (patch) | |
tree | 129761690e0de3b9cff84c160475177f229dc547 /win32/config_sh.PL | |
parent | 15414d2b8179f5759172a843e63bd4f4857b021d (diff) | |
download | perl-a9277f440b7800bab095ac55322c223f4308cd3e.tar.gz |
Some Win32 Config fixes for patchlevel and perl_patchlevel:
- Set $Config{patchlevel} to PERL_VERSION (it was previously blank
because it was wrongly being set from PATCHLEVEL, which was blank)
- Set $Config{perl_patchlevel} and $Config{PERL_PATCHLEVEL} to the
value in the top-level ".patch" file if it exists (the former was
previously not set, while the latter was previously wrongly set to
PERL_VERSION)
p4raw-id: //depot/perl@31569
Diffstat (limited to 'win32/config_sh.PL')
-rw-r--r-- | win32/config_sh.PL | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/win32/config_sh.PL b/win32/config_sh.PL index 21829fd2e3..67f9c20353 100644 --- a/win32/config_sh.PL +++ b/win32/config_sh.PL @@ -66,6 +66,15 @@ if (-e $pl_h) { else { die "Can't find $pl_h: $!"; } + +my $patch_file = '../.patch'; + +if (-e $patch_file) { + open my $fh, "<", $patch_file or die "Can't open $patch_file: $!"; + chomp($opt{PERL_PATCHLEVEL} = <$fh>); + close $fh; +} + $opt{VERSION} = "$opt{PERL_REVISION}.$opt{PERL_VERSION}.$opt{PERL_SUBVERSION}"; $opt{INST_VER} =~ s|~VERSION~|$opt{VERSION}|g; $opt{'version_patchlevel_string'} = "version $opt{PERL_VERSION} subversion $opt{PERL_SUBVERSION}"; |