File tree Expand file tree Collapse file tree 2 files changed +4
-4
lines changed
Expand file tree Collapse file tree 2 files changed +4
-4
lines changed Original file line number Diff line number Diff 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') {
Original file line number Diff line number Diff line change @@ -31,8 +31,8 @@ ok(!exists($Config{"\n$first"}),
3131is($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 );
3838while ( my ($new , $old ) = each %grandfathers ) {
You can’t perform that action at this time.
0 commit comments