diff options
| author | Chris Williams <chris@bingosnet.co.uk> | 2010-04-22 12:51:50 +0100 |
|---|---|---|
| committer | Jesse Vincent <jesse@bestpractical.com> | 2010-05-07 14:12:40 -0400 |
| commit | eff081488d8d400fb17e84ccc4529e69dee68828 (patch) | |
| tree | cb95064e1b9be037f5b083654275d15f769d3fae | |
| parent | b5637d65673678da02d8d5c9089d09865402c0fd (diff) | |
| download | perl-eff081488d8d400fb17e84ccc4529e69dee68828.tar.gz | |
Fix for find_version() in Module::CoreList.
(cherry picked from commit 6d3855bd855c011550d9ba2222b9974ade8046c3)
| -rw-r--r-- | dist/Module-CoreList/lib/Module/CoreList.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/dist/Module-CoreList/lib/Module/CoreList.pm b/dist/Module-CoreList/lib/Module/CoreList.pm index 911e9d6474..64d0a9bac7 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; } |