--- nfo/perl/libs/Data/Mungle/Compare/Struct.pm	2004/05/12 13:53:19	1.6
+++ nfo/perl/libs/Data/Mungle/Compare/Struct.pm	2004/07/07 03:13:43	1.7
@@ -1,7 +1,10 @@
 ##    --------------------------------------------------------------------------------
-##    $Id: Struct.pm,v 1.6 2004/05/12 13:53:19 jonen Exp $
+##    $Id: Struct.pm,v 1.7 2004/07/07 03:13:43 joko Exp $
 ##    --------------------------------------------------------------------------------
 ##    $Log: Struct.pm,v $
+##    Revision 1.7  2004/07/07 03:13:43  joko
+##    minor fix for "sub isEmpty"
+##
 ##    Revision 1.6  2004/05/12 13:53:19  jonen
 ##    + bugfix related to declaration of arrays,
 ##        solved error: 'Bizarre copy of ARRAY in aassign at...'
@@ -156,9 +159,10 @@
     return $empty;
     #return 0;
   
-  } else {
+  # check for empty string
+  } elsif (defined $var) {
     $found = 1;
-    return 0 if defined $var;
+    return 0 if $var ne '';
   }
   
   if (!$found) {