diff options
| author | Ricardo Signes <rjbs@cpan.org> | 2015-04-15 18:24:10 +0200 |
|---|---|---|
| committer | Ricardo Signes <rjbs@cpan.org> | 2015-04-15 18:24:10 +0200 |
| commit | cf549c1a873e982a94bf0869209b000ad6a1bd7a (patch) | |
| tree | 328ec4fd5044810e1e6d4e0e2b812a956f0defea | |
| parent | c7f317a9270a52c9028667b8adec18e94f450586 (diff) | |
| download | perl-cf549c1a873e982a94bf0869209b000ad6a1bd7a.tar.gz | |
fix fencepost error in Module::CoreList is_core
| -rw-r--r-- | dist/Module-CoreList/lib/Module/CoreList.pm | 2 | ||||
| -rw-r--r-- | dist/Module-CoreList/t/is_core.t | 3 |
2 files changed, 4 insertions, 1 deletions
diff --git a/dist/Module-CoreList/lib/Module/CoreList.pm b/dist/Module-CoreList/lib/Module/CoreList.pm index 9a041eba63..6be3cbd372 100644 --- a/dist/Module-CoreList/lib/Module/CoreList.pm +++ b/dist/Module-CoreList/lib/Module/CoreList.pm @@ -11381,7 +11381,7 @@ sub is_core my $final_release = removed_from($module); - return 0 if defined($final_release) && $perl_version > $final_release; + return 0 if defined($final_release) && $perl_version >= $final_release; # If a minimum version of the module was specified: # Step through all perl releases ($prn) diff --git a/dist/Module-CoreList/t/is_core.t b/dist/Module-CoreList/t/is_core.t index 869aa37fb6..b52b891d37 100644 --- a/dist/Module-CoreList/t/is_core.t +++ b/dist/Module-CoreList/t/is_core.t @@ -69,3 +69,6 @@ ok(Module::CoreList->is_core('Text::Soundex', '3.03', '5.01'), "5.01 had Text::S ok(Module::CoreList->is_core('DB_File', '1.01', '5.002'), "DB_File 1.01 was included in 5.002"); ok(!Module::CoreList->is_core('DB_File', '1.03', '5.002'), "DB_File 1.03 wasn't included in 5.002"); ok(Module::CoreList->is_core('DB_File', '1.03', '5.00307'), "DB_File 1.03 was included in 5.00307"); + +ok(! Module::CoreList->is_core("CGI", undef, 5.021), "CGI not in 5.021"); +ok(! Module::CoreList->is_core("CGI", undef, 5.021001), "CGI not in 5.021001"); |