From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 8 Mar 2000 11:30:32 +0000 (+0000)
Subject: Pod::InputObjects tweak (from Brad Appleton)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e23b9d0f648442d8e275530c0bf8b0027cee41d1;p=p5sagit%2Fp5-mst-13.2.git

Pod::InputObjects tweak (from Brad Appleton)

p4raw-id: //depot/perl@5609
---

diff --git a/lib/Pod/InputObjects.pm b/lib/Pod/InputObjects.pm
index 9029f8c..646c008 100644
--- a/lib/Pod/InputObjects.pm
+++ b/lib/Pod/InputObjects.pm
@@ -523,7 +523,9 @@ sub _set_child2parent_links {
    ## Make sure any sequences know who their parent is
    for (@children) {
       next if (!ref || ref eq 'SCALAR');
-      if ($_->isa('Pod::InteriorSequence') or $_->can('nested')) {
+      if (UNIVERSAL::isa($_, 'Pod::InteriorSequence') or
+          UNIVERSAL::can($_, 'nested'))
+      {
           $_->nested($self);
       }
    }
@@ -537,7 +539,8 @@ sub _unset_child2parent_links {
    my $ptree = $self->{'-ptree'};
    for (@$ptree) {
       next  unless (length  and  ref  and  ref ne 'SCALAR');
-      $_->_unset_child2parent_links()  if $_->isa('Pod::InteriorSequence');
+      $_->_unset_child2parent_links()
+          if UNIVERSAL::isa($_, 'Pod::InteriorSequence');
    }
 }
 
@@ -890,7 +893,8 @@ sub _unset_child2parent_links {
    local *ptree = $self;
    for (@ptree) {
        next  unless (length  and  ref  and  ref ne 'SCALAR');
-       $_->_unset_child2parent_links()  if $_->isa('Pod::InteriorSequence');
+       $_->_unset_child2parent_links()
+           if UNIVERSAL::isa($_, 'Pod::InteriorSequence');
    }
 }