diff options
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 |