[perl.git] branch blead, updated. v5.13.10-443-g95effdf

[Chris 'Bingos' Williams]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/95effdf194acae64a4ab711dc3d35da13872afdd?hp=e06d98fb28fb93799939b64c5cd2d41f83060c81>

- Log -----------------------------------------------------------------
commit 95effdf194acae64a4ab711dc3d35da13872afdd
Author: Chris 'BinGOs' Williams <ch...@bingosnet.co.uk>
Date:   Mon Mar 14 16:57:16 2011 +0000

    Resolved RT #59511 for Module::CoreList
    
      Silenced the 'Can't call method "isa" without a package or object 
reference'
      warnings for the functions.
-----------------------------------------------------------------------

Summary of changes:
 dist/Module-CoreList/Changes                |    2 ++
 dist/Module-CoreList/lib/Module/CoreList.pm |   10 +++++-----
 2 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/dist/Module-CoreList/Changes b/dist/Module-CoreList/Changes
index 1809ace..054e46e 100644
--- a/dist/Module-CoreList/Changes
+++ b/dist/Module-CoreList/Changes
@@ -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
 
diff --git a/dist/Module-CoreList/lib/Module/CoreList.pm 
b/dist/Module-CoreList/lib/Module/CoreList.pm
index 448f627..678d2af 100644
--- a/dist/Module-CoreList/lib/Module/CoreList.pm
+++ b/dist/Module-CoreList/lib/Module/CoreList.pm
@@ -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;

--
Perl5 Master Repository