From 74921e084804721ba28da48f5b849f41bdf0fb26 Mon Sep 17 00:00:00 2001 From: David Golden Date: Wed, 5 Feb 2014 14:16:19 -0500 Subject: [PATCH] fix Module::CoreList::is_core version comparision --- dist/Module-CoreList/Makefile.PL | 1 + dist/Module-CoreList/lib/Module/CoreList.pm | 3 ++- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/dist/Module-CoreList/Makefile.PL b/dist/Module-CoreList/Makefile.PL index f95b29d..abe12d9 100644 --- a/dist/Module-CoreList/Makefile.PL +++ b/dist/Module-CoreList/Makefile.PL @@ -19,6 +19,7 @@ WriteMakefile 'PREREQ_PM' => { 'Test::More' => '0', 'List::Util' => 0, + 'version' => 0.88, }, 'EXE_FILES' => [ _scripts() ], 'INSTALLDIRS' => ($] < 5.011 ? 'perl' : 'site'), diff --git a/dist/Module-CoreList/lib/Module/CoreList.pm b/dist/Module-CoreList/lib/Module/CoreList.pm index 828e2fa..fb5e19a 100644 --- a/dist/Module-CoreList/lib/Module/CoreList.pm +++ b/dist/Module-CoreList/lib/Module/CoreList.pm @@ -3,6 +3,7 @@ use strict; use vars qw/$VERSION %released %version %families %upstream %bug_tracker %deprecated %delta/; use Module::CoreList::TieHashDelta; +use version; $VERSION = '3.06'; my $dumpinc = 0; @@ -9433,7 +9434,7 @@ sub is_core last RELEASE if $prn > $perl_version; next unless defined(my $next_module_version = $delta{$prn}->{changed}->{$module}); - return 1 if $next_module_version >= $module_version; + return 1 if version->parse($next_module_version) >= version->parse($module_version); } return 0; } -- 2.7.4