Pod::Man should strip leading lib/ for module manpages (from

[p5sagit/p5-mst-13.2.git] / lib / Pod / InputObjects.pm

diff --git a/lib/Pod/InputObjects.pm b/lib/Pod/InputObjects.pm
index 1432895..849182b 100644 (file)
--- a/lib/Pod/InputObjects.pm
+++ b/lib/Pod/InputObjects.pm
@@ -2,7 +2,7 @@
 # Pod/InputObjects.pm -- package which defines objects for input streams
 # and paragraphs and commands when parsing POD docs.
 #
-# Copyright (C) 1996-1999 by Bradford Appleton. All rights reserved.
+# Copyright (C) 1996-2000 by Bradford Appleton. All rights reserved.
 # This file is part of "PodParser". PodParser is free software;
 # you can redistribute it and/or modify it under the same terms
 # as Perl itself.
@@ -11,8 +11,8 @@
 package Pod::InputObjects;
 
 use vars qw($VERSION);
-$VERSION = 1.090;  ## Current version of this package
-require  5.004;    ## requires this Perl version or later
+$VERSION = 1.12;  ## Current version of this package
+require  5.005;    ## requires this Perl version or later
 
 #############################################################################
 
@@ -522,8 +522,10 @@ sub _set_child2parent_links {
    my ($self, @children) = @_;
    ## Make sure any sequences know who their parent is
    for (@children) {
-      next unless (ref || ref eq 'SCALAR');
-      if ($_->isa('Pod::InteriorSequence') or $_->can('nested')) {
+      next  unless (length  and  ref  and  ref ne 'SCALAR');
+      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');
    }
 }
 
@@ -918,7 +922,7 @@ sub DESTROY {
 
 =head1 SEE ALSO
 
-See L<Pod::Parser>, L<Pod::Select>, and L<Pod::Callbacks>.
+See L<Pod::Parser>, L<Pod::Select>
 
 =head1 AUTHOR