--- nfo/perl/libs/libp.pm	2002/12/01 22:11:35	1.8
+++ nfo/perl/libs/libp.pm	2002/12/05 13:54:00	1.9
@@ -1,8 +1,11 @@
 #################################
 #
-#  $Id: libp.pm,v 1.8 2002/12/01 22:11:35 joko Exp $
+#  $Id: libp.pm,v 1.9 2002/12/05 13:54:00 joko Exp $
 #
 #  $Log: libp.pm,v $
+#  Revision 1.9  2002/12/05 13:54:00  joko
+#  + fix: let 'deep_copy' print its message out (instead of die)
+#
 #  Revision 1.8  2002/12/01 22:11:35  joko
 #  + sub cmd
 #  + sub run_cmds
@@ -210,7 +213,8 @@
     +{map { $_ => deep_copy($this->{$_}) } keys %$this};
   } elsif (ref $this eq "CODE") {
     $this;
-  } else { die "what type is $_?" }
+  #} else { die "deep_copy asks: what type is $this?" }
+  } else { print "deep_copy asks: what type is $this?", "\n"; }
 }
 
 sub getNewPerlObjectByPkgName {