test, doc, make warning if version range and not req EUMM >= 7.11_01

Author: mohawk2

Changes

@@ -1,3 +1,8 @@
+7.11_06
+
+    Enhancements:
+    - Warn if use version range but no specify minimum EUMM >= 7.11_01
+
 7.11_05 Sat Mar 19 09:41:02 GMT 2016
 
     Bug fixes:

lib/ExtUtils/MakeMaker.pm

@@ -427,6 +427,22 @@ sub _has_cpan_meta_requirements {
     };
 }
 
+sub _min_EUMM {
+    my ($self) = @_;
+    my @eumm_versions = sort grep defined, map {
+        $_->{'ExtUtils::MakeMaker'}
+    } grep defined, @{$self}{@PREREQ_KEYS};
+    return 0 unless @eumm_versions;
+    $eumm_versions[0];
+}
+
+sub _got_version_ranges {
+    my ($self) = @_;
+    my @all_versions = map values %$_, grep defined, @{$self}{@PREREQ_KEYS};
+    return 0 unless @all_versions;
+    grep /[^v\d\._]/, @all_versions;
+}
+
 sub new {
     my($class,$self) = @_;
     my($key);
@@ -447,6 +463,9 @@ sub new {
     # Cleanup all the module requirement bits
     my %key2cmr;
     my $has_cpan_meta_requirements = _has_cpan_meta_requirements;
+    warn "Warning: version range without prerequisite of EUMM >= 7.11_01"
+        if $has_cpan_meta_requirements and $self->_min_EUMM lt 7.1101
+        and $self->_got_version_ranges;
     for my $key (@PREREQ_KEYS) {
         $self->{$key}      ||= {};
         if ($has_cpan_meta_requirements) {
@@ -609,7 +628,7 @@ END
         elsif (
             $cmr
                 ? !$cmr->accepts_module($prereq, $pr_version)
-                : $required_version > $pr_version
+                : $required_version lt $pr_version
         ) {
             warn sprintf "Warning: prerequisite %s %s not found. We have %s.\n",
               $prereq, $required_version, ($pr_version || 'unknown version')
@@ -2684,7 +2703,8 @@ A hash of modules that are needed to run your module.  The keys are
 the module names ie. Test::More, and the minimum version is the
 value. If the required version number is 0 any version will do.
 The versions given may be a Perl v-string (see L<version>) or a range
-(see L<CPAN::Meta::Requirements>).
+(see L<CPAN::Meta::Requirements>). If you give a range, you need to
+specify a minimum EUMM of at least C<7.11_01>.
 
 This will go into the C<requires> field of your F<META.yml> and the
 C<runtime> of the C<prereqs> field of your F<META.json>.

t/prereq.t

@@ -9,7 +9,7 @@ BEGIN {
 
 use strict;
 use Config;
-use Test::More tests => 21;
+use Test::More tests => 23;
 use File::Temp qw[tempdir];
 
 use TieOut;
@@ -57,7 +57,7 @@ ok( chdir 'Big-Dummy', "chdir'd to Big-Dummy" ) ||
     is $warnings, '', 'basic prereq';
 
     SKIP: {
-	skip 'No CMR, no version ranges', 1
+	skip 'No CMR, no version ranges', 3
 	    unless ExtUtils::MakeMaker::_has_cpan_meta_requirements;
 	$warnings = '';
 	WriteMakefile(
@@ -66,7 +66,27 @@ ok( chdir 'Big-Dummy', "chdir'd to Big-Dummy" ) ||
 		strict  =>  '>= 0, <= 99999',
 	    }
 	);
-	is $warnings, '', 'version range';
+	isnt $warnings, '', 'version range, no min EUMM specified';
+
+	$warnings = '';
+	WriteMakefile(
+	    NAME            => 'Big::Dummy',
+	    PREREQ_PM       => {
+		strict  =>  '>= 0, <= 99999',
+                'ExtUtils::MakeMaker' => '7.04',
+	    }
+	);
+	isnt $warnings, '', 'version range and insufficient EUMM specified';
+
+	$warnings = '';
+	WriteMakefile(
+	    NAME            => 'Big::Dummy',
+	    PREREQ_PM       => {
+		strict  =>  '>= 0, <= 99999',
+                'ExtUtils::MakeMaker' => '7.11_01',
+	    }
+	);
+	is $warnings, '', 'version range and sufficient EUMM specified';
     }
 
     $warnings = '';

t/vstrings.t

@@ -75,7 +75,7 @@ sub capture_make {
 
     WriteMakefile(
         NAME      => 'VString::Test',
-        PREREQ_PM => { $package , $version }
+        PREREQ_PM => { 'ExtUtils::MakeMaker' => '7.11_01', $package , $version }
     );
 
     return $warnings;