From: Chris Williams <chris@bingosnet.co.uk>
Date: Thu, 22 Apr 2010 11:51:50 +0000 (+0100)
Subject: Fix for find_version() in Module::CoreList.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6d3855bd855c011550d9ba2222b9974ade8046c3;p=p5sagit%2Fp5-mst-13.2.git

Fix for find_version() in Module::CoreList.
---

diff --git a/dist/Module-CoreList/lib/Module/CoreList.pm b/dist/Module-CoreList/lib/Module/CoreList.pm
index 911e9d6..64d0a9b 100644
--- a/dist/Module-CoreList/lib/Module/CoreList.pm
+++ b/dist/Module-CoreList/lib/Module/CoreList.pm
@@ -140,9 +140,8 @@ sub find_modules {
 }
 
 sub find_version {
-    my $class = shift;
-    $class = shift if $class->isa(__PACKAGE__);
     my $v = shift;
+    $v = shift if $v->isa(__PACKAGE__);
     return $version{$v} if defined $version{$v};
     return undef;
 }