--- nfo/perl/libs/Data/Mungle/Code/Ref.pm	2003/03/27 15:31:03	1.5
+++ nfo/perl/libs/Data/Mungle/Code/Ref.pm	2003/05/13 07:02:47	1.6
@@ -1,7 +1,10 @@
 ## ---------------------------------------------------------------------------
-##  $Id: Ref.pm,v 1.5 2003/03/27 15:31:03 joko Exp $
+##  $Id: Ref.pm,v 1.6 2003/05/13 07:02:47 joko Exp $
 ## ---------------------------------------------------------------------------
 ##  $Log: Ref.pm,v $
+##  Revision 1.6  2003/05/13 07:02:47  joko
+##  fix: check for definedness, not for trueness
+##
 ##  Revision 1.5  2003/03/27 15:31:03  joko
 ##  fixes to modules regarding new namespace(s) below Data::Mungle::*
 ##
@@ -101,14 +104,17 @@
     
     # if value isn't set, try to set it
     my $callbackMap;
-    if ($values) {
+    # fix (2003-04-17): always do fill if value is *defined*!!!
+    if (defined $values) {
       #if (ref $values eq 'HASH') {
       if (ref $values eq 'Data::Map') {
         $callbackMap = $values->getAttributes();
       } else {
         # apply $values as single value to referenced slot
         #print "APPLY!", "\n";
-        eval('$obj' . '->' . $objPerlRefString . ' = $values;');
+        my $evalstr = '$obj' . '->' . $objPerlRefString . ' = $values;';
+        #print "eval: $evalstr", "\n";
+        eval($evalstr);
         die ($@) if $@;
       }
     }