Resolved RT #59511 for Module::CoreList
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Mon, 14 Mar 2011 16:57:16 +0000 (16:57 +0000)
committerLeon Brocard <acme@astray.com>
Wed, 8 Jun 2011 08:10:51 +0000 (09:10 +0100)
  Silenced the 'Can't call method "isa" without a package or object reference'
  warnings for the functions.
(cherry picked from commit 95effdf194acae64a4ab711dc3d35da13872afdd)

dist/Module-CoreList/Changes
dist/Module-CoreList/lib/Module/CoreList.pm

index 1809ace..054e46e 100644 (file)
@@ -1,3 +1,5 @@
+  - Resolved RT #59511 
+
 2.45 Sun Feb 20 2011
   - Bumped the version number and data for the 5.13.10 release
 
index 448f627..678d2af 100644 (file)
@@ -213,7 +213,7 @@ END {
 
 sub first_release_raw {
     my $module = shift;
-    $module = shift if $module->isa(__PACKAGE__)
+    $module = shift if eval { $module->isa(__PACKAGE__) }
       and scalar @_ and $_[0] =~ m#\A[a-zA-Z_][0-9a-zA-Z_]*(?:(::|')[0-9a-zA-Z_]+)*\z#;
     my $version = shift;
 
@@ -239,7 +239,7 @@ sub first_release {
 
 sub find_modules {
     my $regex = shift;
-    $regex = shift if $regex->isa(__PACKAGE__);
+    $regex = shift if eval { $regex->isa(__PACKAGE__) };
     my @perls = @_;
     @perls = keys %version unless @perls;
 
@@ -254,14 +254,14 @@ sub find_modules {
 
 sub find_version {
     my $v = shift;
-    $v = shift if $v->isa(__PACKAGE__);
+    $v = shift if eval { $v->isa(__PACKAGE__) };
     return $version{$v} if defined $version{$v};
     return undef;
 }
 
 sub is_deprecated {
     my $module = shift;
-    $module = shift if $module->isa(__PACKAGE__)
+    $module = shift if eval { $module->isa(__PACKAGE__) }
       and scalar @_ and $_[0] =~ m#\A[a-zA-Z_][0-9a-zA-Z_]*(?:(::|')[0-9a-zA-Z_]+)*\z#;
     my $perl_version = shift;
     $perl_version ||= $];
@@ -281,7 +281,7 @@ sub removed_from_by_date {
 
 sub removed_raw {
   my $mod = shift;
-  $mod = shift if $mod->isa(__PACKAGE__)
+  $mod = shift if eval { $mod->isa(__PACKAGE__) }
       and scalar @_ and $_[0] =~ m#\A[a-zA-Z_][0-9a-zA-Z_]*(?:(::|')[0-9a-zA-Z_]+)*\z#;
   return unless my @perls = sort { $a cmp $b } first_release_raw($mod);
   my $last = pop @perls;