--- nfo/perl/libs/DesignPattern/Object.pm	2003/01/20 16:54:22	1.3
+++ nfo/perl/libs/DesignPattern/Object.pm	2003/01/22 17:56:49	1.4
@@ -1,7 +1,10 @@
 ## ---------------------------------------------------------------------------
-##  $Id: Object.pm,v 1.3 2003/01/20 16:54:22 joko Exp $
+##  $Id: Object.pm,v 1.4 2003/01/22 17:56:49 root Exp $
 ## ---------------------------------------------------------------------------
 ##  $Log: Object.pm,v $
+##  Revision 1.4  2003/01/22 17:56:49  root
+##  + fix: just use the logger if it's available
+##
 ##  Revision 1.3  2003/01/20 16:54:22  joko
 ##  + sub fromPackage: refactored from libp's 'getNewPerlObjFromPkgName' or s.th.l.th.
 ##
@@ -26,7 +29,7 @@
 
 
 # get logger instance
-my $logger = Log::Dispatch::Config->instance;
+my $logger = eval { Log::Dispatch::Config->instance; };
 
 sub new {
   
@@ -36,7 +39,7 @@
   # use already blessed reference, if passed in - else use the very classname
   my $class = ref ($classname) || $classname;
   
-  $logger->debug( "$classname->new( ... )" . "\t[via " . __PACKAGE__ . "]" );
+  $logger->debug( "$classname->new( ... )" . "\t[via " . __PACKAGE__ . "]" ) if $logger;
   
   # the base for our object - a plain perl hash, which ....
   my $self = {};