File tree 1 file changed +16
-11
lines changed
1 file changed +16
-11
lines changed Original file line number Diff line number Diff line change @@ -456,17 +456,7 @@ sub new {
456
456
457
457
$self -> extract_ARGV(\@ARGV );
458
458
459
- # RT#91540 PREREQ_FATAL not recognized on command line
460
- if (%$unsatisfied_prereqs && $self -> {PREREQ_FATAL }){
461
- my $failedprereqs = join " \n " , map {" $_ $unsatisfied_prereqs ->{$_ }" }
462
- sort { $a cmp $b } keys %$unsatisfied_prereqs ;
463
- die <<"END" ;
464
- MakeMaker FATAL: prerequisites not found.
465
- $failedprereqs
466
-
467
- Please install these modules first and rerun 'perl Makefile.PL'.
468
- END
469
- }
459
+ $self -> check_PREREQ_FATAL($unsatisfied_prereqs ); # after ARGV processed
470
460
471
461
$self -> {NAME } ||= $self -> guess_name;
472
462
warn " Warning: NAME must be a package name\n "
486
476
$self ;
487
477
}
488
478
479
+ sub check_PREREQ_FATAL {
480
+ my ($self , $unsatisfied_prereqs ) = @_ ;
481
+ # RT#91540 PREREQ_FATAL not recognized on command line
482
+ if (%$unsatisfied_prereqs && $self -> {PREREQ_FATAL }){
483
+ my $failedprereqs = join " \n " , map {" $_ $unsatisfied_prereqs ->{$_ }" }
484
+ sort { $a cmp $b } keys %$unsatisfied_prereqs ;
485
+ die <<"END" ;
486
+ MakeMaker FATAL: prerequisites not found.
487
+ $failedprereqs
488
+
489
+ Please install these modules first and rerun 'perl Makefile.PL'.
490
+ END
491
+ }
492
+ }
493
+
489
494
sub extract_CONFIGURE {
490
495
my ($self ) = @_ ;
491
496
my %initial_att = %$self ; # record initial attributes
You can’t perform that action at this time.
0 commit comments