Skip to content

Commit fa6b0cf

Browse files
committed
Consistent Config/Macro values
1 parent 9a0f3f8 commit fa6b0cf

File tree

2 files changed

+4
-4
lines changed

2 files changed

+4
-4
lines changed

configpm

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -239,10 +239,10 @@ my %seen_quotes;
239239

240240
# grandfather PATCHLEVEL and SUBVERSION and CONFIG
241241
if ($k) {
242-
if ($k eq 'PERL_VERSION_MINOR') {
242+
if ($k eq 'PERL_VERSION') {
243243
push @v_others, "PATCHLEVEL='$v'\n";
244244
}
245-
elsif ($k eq 'PERL_VERSION_PATCH') {
245+
elsif ($k eq 'PERL_SUBVERSION') {
246246
push @v_others, "SUBVERSION='$v'\n";
247247
}
248248
elsif ($k eq 'PERL_CONFIG_SH') {

lib/Config.t

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -31,8 +31,8 @@ ok(!exists($Config{"\n$first"}),
3131
is($Config{PERL_VERSION_MAJOR}, 7, "PERL_VERSION_MAJOR is 7");
3232

3333
# Check that old config variable names are aliased to their new ones.
34-
my %grandfathers = ( PERL_VERSION_MINOR => 'PATCHLEVEL',
35-
PERL_VERSION_PATCH => 'SUBVERSION',
34+
my %grandfathers = ( PERL_VERSION => 'PATCHLEVEL',
35+
PERL_SUBVERSION => 'SUBVERSION',
3636
PERL_CONFIG_SH => 'CONFIG'
3737
);
3838
while( my($new, $old) = each %grandfathers ) {

0 commit comments

Comments
 (0)