@@ -39,6 +39,8 @@ our @EXPORT_OK = qw($VERSION &neatvalue &mkbootstrap &mksymlists
39
39
&WriteEmptyMakefile &open_for_writing &write_file_via_tmp
40
40
&_sprintf562) ;
41
41
42
+ my @PREREQ_KEYS = qw( PREREQ_PM BUILD_REQUIRES CONFIGURE_REQUIRES TEST_REQUIRES) ;
43
+
42
44
# These will go away once the last of the Win32 & VMS specific code is
43
45
# purged.
44
46
my $Is_VMS = $^O eq ' VMS' ;
@@ -444,7 +446,7 @@ sub new {
444
446
445
447
# Cleanup all the module requirement bits
446
448
my %key2cmr ;
447
- for my $key (qw( PREREQ_PM BUILD_REQUIRES CONFIGURE_REQUIRES TEST_REQUIRES ) ) {
449
+ for my $key (@PREREQ_KEYS ) {
448
450
$self -> {$key } ||= {};
449
451
if (_has_cpan_meta_requirements) {
450
452
my $cmr = CPAN::Meta::Requirements-> from_string_hash(
@@ -551,14 +553,14 @@ END
551
553
my $cmr ;
552
554
if (_has_cpan_meta_requirements) {
553
555
$cmr = CPAN::Meta::Requirements-> new;
554
- for my $key (qw( PREREQ_PM BUILD_REQUIRES CONFIGURE_REQUIRES TEST_REQUIRES ) ) {
556
+ for my $key (@PREREQ_KEYS ) {
555
557
$cmr -> add_requirements($key2cmr {$key }) if $key2cmr {$key };
556
558
}
557
559
foreach my $prereq ($cmr -> required_modules) {
558
560
$prereq2version {$prereq } = $cmr -> requirements_for_module($prereq );
559
561
}
560
562
} else {
561
- for my $key (qw( PREREQ_PM BUILD_REQUIRES CONFIGURE_REQUIRES TEST_REQUIRES ) ) {
563
+ for my $key (@PREREQ_KEYS ) {
562
564
next unless my $module2version = $self -> {$key };
563
565
$prereq2version {$_ } = $module2version -> {$_ } for keys %$module2version ;
564
566
}
0 commit comments