X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=perl%2Flib%2FIDZebra%2FData1.pm;fp=perl%2Flib%2FIDZebra%2FData1.pm;h=1a36216595d7856c8112c9c672e01f4e61da6e60;hb=b9eea3a2ebd3feae59bc8c01a70dbe8b9e0b807a;hp=9aa54fff1fe62f8f6a012b9f4d7494e4db7aee38;hpb=20ba1d9d1d672f244ed83dee5224241df29378ea;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)); 
 }