diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-15 10:28:09 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-15 10:28:09 +0000 |
| commit | eedc6b8e86e3a8b49048aa57111fa1903c3d168f (patch) | |
| tree | 3528a3a9d47a113746fbd99ef8cec5e37ff05926 /lib | |
| parent | a46f009f9330d593c5388bedbb2c4a9d80cfa28a (diff) | |
| parent | 0ebdc6d52bc78db7da1302f9d517605c1d2ccc15 (diff) | |
| download | perl-eedc6b8e86e3a8b49048aa57111fa1903c3d168f.tar.gz | |
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@4392
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Pod/Man.pm | 9 | ||||
| -rw-r--r-- | lib/Pod/Parser.pm | 2 |
2 files changed, 8 insertions, 3 deletions
diff --git a/lib/Pod/Man.pm b/lib/Pod/Man.pm index a85fba538c..0ed16b627c 100644 --- a/lib/Pod/Man.pm +++ b/lib/Pod/Man.pm @@ -518,7 +518,9 @@ sub sequence { my $command = $seq->cmd_name; # Zero-width characters. - if ($command eq 'Z') { return bless \ '\&', 'Pod::Man::String' } + if ($command eq 'Z') { + my $v = '\&'; return bless \ $v, 'Pod::Man::String'; + } # C<>, L<>, X<>, and E<> don't apply guesswork to their contents. local $_ = $self->collapse ($seq->parse_tree, $command =~ /^[CELX]$/); @@ -554,7 +556,10 @@ sub sequence { # Handle links. if ($command eq 'L') { - return bless \ ($self->buildlink ($_)), 'Pod::Man::String'; + # XXX bug in lvalue subroutines prevents this from working + #return bless \ ($self->buildlink ($_)), 'Pod::Man::String'; + my $v = $self->buildlink($_); + return bless \$v, 'Pod::Man::String'; } # Whitespace protection replaces whitespace with "\ ". diff --git a/lib/Pod/Parser.pm b/lib/Pod/Parser.pm index c96f86b298..ab6787d10e 100644 --- a/lib/Pod/Parser.pm +++ b/lib/Pod/Parser.pm @@ -815,7 +815,7 @@ sub parse_text { pop @seq_stack; my $errmsg = "** Unterminated $cmd<...> at $file line $line\n"; (ref $errorsub) and &{$errorsub}($errmsg) - or (defined $errmsg) and $self->$errorsub($errmsg) + or (defined $errorsub) and $self->$errorsub($errmsg) or warn($errmsg); $seq_stack[-1]->append($expand_seq ? &$xseq_sub($self,$seq) : $seq); $seq = $seq_stack[-1]; |