[Po4a-commits] po4a/lib/Locale/Po4a Man.pm,1.67,1.68

[Nicolas FRAN??OIS]

Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv26715/lib/Locale/Po4a

Modified Files:
	Man.pm 
Log Message:
Do not test strings but their length.
Thanks to Martin.


Index: Man.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Man.pm,v
retrieving revision 1.67
retrieving revision 1.68
diff -u -d -r1.67 -r1.68
--- Man.pm	14 Nov 2004 21:42:32 -0000	1.67
+++ Man.pm	19 Nov 2004 22:01:42 -0000	1.68
@@ -591,7 +591,7 @@
 	    push @args, splitargs($ref,$arguments);
 
 
-	    if ($paragraph) {
+	    if (length($paragraph)) {
 		do_paragraph($self,$paragraph,$wrapped_mode);
 		$paragraph="";
 		$wrapped_mode = $wrapped_mode eq 'NO' ? 'YES' : $wrapped_mode;
@@ -709,7 +709,7 @@
 		$paragraph .= $line."\n";
 	    }
 	} else { #empty line, or line containing only spaces
-	    if ($paragraph) {
+	    if (length($paragraph)) {
 	        do_paragraph($self,$paragraph,$wrapped_mode);
 	        $paragraph="";
 	    }
@@ -722,7 +722,7 @@
 	undef $self->{type};
     }
 
-    if ($paragraph) {
+    if (length($paragraph)) {
 	do_paragraph($self,$paragraph,$wrapped_mode);
 	$wrapped_mode = $wrapped_mode eq 'NO' ? 'YES' : $wrapped_mode;
 	$paragraph="";
@@ -805,7 +805,7 @@
             print STDERR "escaped space after $1\n"
                 if ($debug{'splitargs'});
             # escaped space
-            $buffer = ($buffer?$buffer:'').$1." ";
+            $buffer = (length($buffer)?$buffer:'').$1." ";
             $escaped = 1;
         } else {
             print STDERR "Unquoted arg, nothing to declare\n"
@@ -814,7 +814,7 @@
             $buffer="";
         }
     }
-    if ($buffer) {
+    if (length($buffer)) {
         $buffer=~ s/"//g;
         $buffer =~ s/\xA0/\\ /g;
         push @args,$buffer;