@@ -440,8 +440,7 @@ sub new {
440
440
check_manifest();
441
441
}
442
442
$self -> check_min_perl_version;
443
- my $unsatisfied_prereqs = $self -> check_prereqs($cmrstash );
444
- $self -> check_PREREQ_FATAL($unsatisfied_prereqs ); # after ARGV processed
443
+ $self -> check_prereqs($cmrstash ); # must be after ARGV processed
445
444
# CONFIGURE after PREREQ_FATAL so can rely on prereqs being present
446
445
my ($initial_att , $configure_att ) = $self -> extract_CONFIGURE;
447
446
$self -> arch_check(
@@ -456,21 +455,6 @@ sub new {
456
455
$self ;
457
456
}
458
457
459
- sub check_PREREQ_FATAL {
460
- my ($self , $unsatisfied_prereqs ) = @_ ;
461
- # RT#91540 PREREQ_FATAL not recognized on command line
462
- if (%$unsatisfied_prereqs && $self -> {PREREQ_FATAL }){
463
- my $failedprereqs = join " \n " , map {" $_ $unsatisfied_prereqs ->{$_ }" }
464
- sort { $a cmp $b } keys %$unsatisfied_prereqs ;
465
- die <<"END" ;
466
- MakeMaker FATAL: prerequisites not found.
467
- $failedprereqs
468
-
469
- Please install these modules first and rerun 'perl Makefile.PL'.
470
- END
471
- }
472
- }
473
-
474
458
sub extract_CONFIGURE {
475
459
my ($self ) = @_ ;
476
460
my %initial_att = %$self ; # record initial attributes
@@ -712,7 +696,17 @@ $failedprereqs
712
696
Please install these modules first and rerun 'perl Makefile.PL'.
713
697
END
714
698
}
715
- \%unsatisfied ;
699
+ # RT#91540 PREREQ_FATAL not recognized on command line
700
+ if (%unsatisfied && $self -> {PREREQ_FATAL }){
701
+ my $failedprereqs = join " \n " , map {" $_ $unsatisfied {$_ }" }
702
+ sort { $a cmp $b } keys %unsatisfied ;
703
+ die <<"END" ;
704
+ MakeMaker FATAL: prerequisites not found.
705
+ $failedprereqs
706
+
707
+ Please install these modules first and rerun 'perl Makefile.PL'.
708
+ END
709
+ }
716
710
}
717
711
718
712
sub check_min_perl_version {
0 commit comments