Fix for find_version() in Module::CoreList.
Chris Williams [Thu, 22 Apr 2010 11:51:50 +0000 (12:51 +0100)]
dist/Module-CoreList/lib/Module/CoreList.pm

index 911e9d6..64d0a9b 100644 (file)
@@ -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;
 }