Perl API os growing

[idzebra-moved-to-github.git] / perl / lib / IDZebra / Data1.pm

diff --git a/perl/lib/IDZebra/Data1.pm b/perl/lib/IDZebra/Data1.pm
index b617269..9aa54ff 100644 (file)
--- 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)); 
 }