diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-13 21:08:29 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-13 21:08:29 +0000 |
| commit | 828c4421567f1da54062ec5edfcc3250be409b16 (patch) | |
| tree | b8d7b34222aba963b38218e73d3b93673d3b2803 /lib/Pod/InputObjects.pm | |
| parent | 635bab04a8e9700ca0cd2791a5f46a400e5d5a55 (diff) | |
| download | perl-828c4421567f1da54062ec5edfcc3250be409b16.tar.gz | |
updates from PodParser v1.12 on CPAN (from Brad Appleton)
p4raw-id: //depot/perl@5711
Diffstat (limited to 'lib/Pod/InputObjects.pm')
| -rw-r--r-- | lib/Pod/InputObjects.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/Pod/InputObjects.pm b/lib/Pod/InputObjects.pm index 646c00862a..849182bf37 100644 --- a/lib/Pod/InputObjects.pm +++ b/lib/Pod/InputObjects.pm @@ -11,8 +11,8 @@ package Pod::InputObjects; use vars qw($VERSION); -$VERSION = 1.11; ## 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,7 +522,7 @@ sub _set_child2parent_links { my ($self, @children) = @_; ## Make sure any sequences know who their parent is for (@children) { - next if (!ref || ref eq 'SCALAR'); + next unless (length and ref and ref ne 'SCALAR'); if (UNIVERSAL::isa($_, 'Pod::InteriorSequence') or UNIVERSAL::can($_, 'nested')) { @@ -922,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 |