X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=perl%2Flib%2FIDZebra%2FData1.pm;h=1a36216595d7856c8112c9c672e01f4e61da6e60;hb=92358ecf48eee1915a597b38addd532db490cbdb;hp=9aa54fff1fe62f8f6a012b9f4d7494e4db7aee38;hpb=4003296c8a5cf45925cf18f2d6feef929ead1f66;p=idzebra-moved-to-github.git

diff --git a/perl/lib/IDZebra/Data1.pm b/perl/lib/IDZebra/Data1.pm
index 9aa54ff..1a36216 100644
--- a/perl/lib/IDZebra/Data1.pm
+++ b/perl/lib/IDZebra/Data1.pm
@@ -103,7 +103,7 @@ sub tag_add_attr {
 
 sub mk_text {
     my ($self, $parent, $text) = @_;
-    $text = "" unless ($text);
+    $text = "" unless defined ($text);
     return (IDZebra::data1_mk_text($self->{dh}, $self->{mem},
 				   $text, $parent)); 
 }