diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-07 18:35:21 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-07 18:35:21 +0000 |
| commit | 08be2cf40db842e29e0a1e973eda44d0c9702c7e (patch) | |
| tree | ef45ae1621297eb923412fdc90b176a865645c8d /lib/Pod/Html.pm | |
| parent | f61c378c4bd3623cf65de40c5c214d37ee6a2aa4 (diff) | |
| download | perl-08be2cf40db842e29e0a1e973eda44d0c9702c7e.tar.gz | |
Pod::Html tweak to avoid false falses
p4raw-id: //depot/perl@5599
Diffstat (limited to 'lib/Pod/Html.pm')
| -rw-r--r-- | lib/Pod/Html.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm index 24d546d7b4..89e3d0f432 100644 --- a/lib/Pod/Html.pm +++ b/lib/Pod/Html.pm @@ -1412,10 +1412,13 @@ sub process_text { sub process_text1($$;$$){ my( $lev, $rstr, $func, $closing ) = @_; - $lev++ unless defined $func; my $res = ''; - $func ||= ''; + unless (defined $func) { + $func = ''; + $lev++; + } + if( $func eq 'B' ){ # B<text> - boldface $res = '<STRONG>' . process_text1( $lev, $rstr ) . '</STRONG>'; @@ -1625,7 +1628,7 @@ sub go_ahead($$$){ # sub emit_C($;$$){ my( $text, $nocode, $args ) = @_; - $args ||= ''; + $args = '' unless defined $args; my $res; my( $url, $fid ) = coderef( undef(), $text ); |