--- 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/10/07 14:06:46	1.8
@@ -1,7 +1,13 @@
 ##    --------------------------------------------------------------------------------
-##    $Id: Struct.pm,v 1.6 2004/05/12 13:53:19 jonen Exp $
+##    $Id: Struct.pm,v 1.8 2004/10/07 14:06:46 jonen Exp $
 ##    --------------------------------------------------------------------------------
 ##    $Log: Struct.pm,v $
+##    Revision 1.8  2004/10/07 14:06:46  jonen
+##    minor changes, comment-out debug dumper
+##
+##    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...'
@@ -93,7 +99,7 @@
 
   #print "isEmpty is parsing variable ( ref $ref reftype $reftype )", "\n";
   
-#print Dumper($var);
+#print Dumper($ref);
   
   my $found;
 
@@ -156,13 +162,14 @@
     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) {
-    print "isEmpty could not parse variable ( ref $ref reftype $reftype )", "\n";
+    #print "isEmpty could not parse variable ( ref $ref reftype $reftype )", "\n";
   }
 
   #print "EMPTY!!!", "\n";