X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=perl%2Flib%2FIDZebra%2FData1.pm;h=9aa54fff1fe62f8f6a012b9f4d7494e4db7aee38;hb=b1e27ac647d3f28b773603157077a9d55e5ec3eb;hp=b6172696f1126b030f10f1d5e838ad15ede30d15;hpb=af03c4a4f5320b52c7cc5f47bab7c9ad4b3e384d;p=idzebra-moved-to-github.git

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