@@ -451,8 +451,7 @@ sub new {
451
451
check_manifest();
452
452
}
453
453
$self -> check_min_perl_version;
454
- my $unsatisfied_prereqs = $self -> check_prereqs($cmrstash );
455
- $self -> check_PREREQ_FATAL($unsatisfied_prereqs ); # after ARGV processed
454
+ $self -> check_prereqs($cmrstash ); # must be after ARGV processed
456
455
# CONFIGURE after PREREQ_FATAL so can rely on prereqs being present
457
456
my ($initial_att , $configure_att ) = $self -> extract_CONFIGURE;
458
457
$self -> arch_check(
@@ -467,21 +466,6 @@ sub new {
467
466
$self ;
468
467
}
469
468
470
- sub check_PREREQ_FATAL {
471
- my ($self , $unsatisfied_prereqs ) = @_ ;
472
- # RT#91540 PREREQ_FATAL not recognized on command line
473
- if (%$unsatisfied_prereqs && $self -> {PREREQ_FATAL }){
474
- my $failedprereqs = join " \n " , map {" $_ $unsatisfied_prereqs ->{$_ }" }
475
- sort { $a cmp $b } keys %$unsatisfied_prereqs ;
476
- die <<"END" ;
477
- MakeMaker FATAL: prerequisites not found.
478
- $failedprereqs
479
-
480
- Please install these modules first and rerun 'perl Makefile.PL'.
481
- END
482
- }
483
- }
484
-
485
469
sub extract_CONFIGURE {
486
470
my ($self ) = @_ ;
487
471
my %initial_att = %$self ; # record initial attributes
@@ -723,7 +707,17 @@ $failedprereqs
723
707
Please install these modules first and rerun 'perl Makefile.PL'.
724
708
END
725
709
}
726
- \%unsatisfied ;
710
+ # RT#91540 PREREQ_FATAL not recognized on command line
711
+ if (%unsatisfied && $self -> {PREREQ_FATAL }){
712
+ my $failedprereqs = join " \n " , map {" $_ $unsatisfied {$_ }" }
713
+ sort { $a cmp $b } keys %unsatisfied ;
714
+ die <<"END" ;
715
+ MakeMaker FATAL: prerequisites not found.
716
+ $failedprereqs
717
+
718
+ Please install these modules first and rerun 'perl Makefile.PL'.
719
+ END
720
+ }
727
721
}
728
722
729
723
sub check_min_perl_version {
0 commit comments