From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 7 Mar 2000 18:35:21 +0000 (+0000)
Subject: Pod::Html tweak to avoid false falses
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=60a48b2d850245d0a8759f6873cb9e007b6da62b;p=p5sagit%2Fp5-mst-13.2.git

Pod::Html tweak to avoid false falses

p4raw-id: //depot/perl@5599
---

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index 24d546d..89e3d0f 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 );