From: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
Date: Wed, 18 Sep 2013 09:52:57 +0000 (+0100)
Subject: Make changes_between() in Module::CoreList API the same as the other functions
X-Git-Tag: upstream/5.20.0~1773
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=5622f4516de7bf01385ce29fae960648d327b9a5;p=platform%2Fupstream%2Fperl.git

Make changes_between() in Module::CoreList API the same as the other functions
---

diff --git a/dist/Module-CoreList/Changes b/dist/Module-CoreList/Changes
index 22c6d0d..fecb700 100644
--- a/dist/Module-CoreList/Changes
+++ b/dist/Module-CoreList/Changes
@@ -1,3 +1,7 @@
+2.99
+  - fixed Module::Build core deprecation
+  - changes_between now has the same API as all other functions
+
 2.98 Wed Aug 21 2013
   - Prepared for v5.19.4
 
diff --git a/dist/Module-CoreList/lib/Module/CoreList.pm b/dist/Module-CoreList/lib/Module/CoreList.pm
index e3fd719..b182c85 100644
--- a/dist/Module-CoreList/lib/Module/CoreList.pm
+++ b/dist/Module-CoreList/lib/Module/CoreList.pm
@@ -110,7 +110,9 @@ sub removed_raw {
 }
 
 sub changes_between {
-  my ($left_ver, $right_ver) = @_;
+  my $left_ver = shift;
+  $left_ver = shift if eval { $left_ver->isa(__PACKAGE__) };
+  my $right_ver = shift;
 
   my $left  = $version{ $left_ver };
   my $right = $version{ $right_ver };