[Po4a-commits] po4a/lib/Locale/Po4a TransTractor.pm,1.62,1.63

[Nicolas FRAN??OIS]

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

Modified Files:
	TransTractor.pm 
Log Message:
If a comment is "0", it is evaluated to false and thus ignored.
Use defined rather than the string evaluation.


Index: TransTractor.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/TransTractor.pm,v
retrieving revision 1.62
retrieving revision 1.63
diff -u -d -r1.62 -r1.63
--- TransTractor.pm	14 Mar 2005 18:39:38 -0000	1.62
+++ TransTractor.pm	2 Apr 2005 21:57:12 -0000	1.63
@@ -856,11 +856,15 @@
 	}
     }
 
+    if (! defined($options{'comment'})) {
+	$options{'comment'} = "";
+    }
+
     # the comments provided by the modules are automatic comments from the PO point of view
     $self->{TT}{po_out}->push('msgid'     => $string,
 			      'reference' => $ref,
 			      'type'      => $type,
-	                      'automatic' => $options{'comment'}||"",
+	                      'automatic' => $options{'comment'},
 			      'wrap'      => $options{'wrap'}||0,
 			      'wrapcol'   => $options{'wrapcol'});