diff options
| author |   millert <millert@openbsd.org> | 2003-12-03 03:02:12 +0000 |
|---|---|---|
| committer | millert <millert@openbsd.org> | 2003-12-03 03:02:12 +0000 |
| commit | f64b279a78e059c1d242255e7603163a5f086337 (patch) | |
| tree | e9b95d33a61c91f8bf5f1eab57610747075ec1ef /gnu/usr.bin/perl/lib/Pod/InputObjects.pm | |
| parent | perl 5.8.2 from CPAN (diff) | |
| download | wireguard-openbsd-f64b279a78e059c1d242255e7603163a5f086337.tar.xz wireguard-openbsd-f64b279a78e059c1d242255e7603163a5f086337.zip | |
Resolve conflicts for perl 5.8.2, remove old files, and add OpenBSD-specific scaffolding
Diffstat (limited to 'gnu/usr.bin/perl/lib/Pod/InputObjects.pm')
| -rw-r--r-- | gnu/usr.bin/perl/lib/Pod/InputObjects.pm | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/gnu/usr.bin/perl/lib/Pod/InputObjects.pm b/gnu/usr.bin/perl/lib/Pod/InputObjects.pm index eae8678e463..9cd347b969a 100644 --- a/gnu/usr.bin/perl/lib/Pod/InputObjects.pm +++ b/gnu/usr.bin/perl/lib/Pod/InputObjects.pm @@ -11,7 +11,7 @@ package Pod::InputObjects; use vars qw($VERSION); -$VERSION = 1.13; ## Current version of this package +$VERSION = 1.14; ## Current version of this package require 5.005; ## requires this Perl version or later ############################################################################# @@ -855,9 +855,15 @@ the current one. sub append { my $self = shift; local *ptree = $self; + my $can_append = @ptree && !(ref $ptree[-1]); for (@_) { - next unless length; - if (@ptree and !(ref $ptree[-1]) and !(ref $_)) { + if (ref) { + push @ptree, $_; + } + elsif(!length) { + next; + } + elsif ($can_append) { $ptree[-1] .= $_; } else { |