--- nfo/perl/libs/DesignPattern/Bridge.pm	2003/05/13 08:39:22	1.12
+++ nfo/perl/libs/DesignPattern/Bridge.pm	2003/07/01 23:26:37	1.13
@@ -1,7 +1,10 @@
 ## --------------------------------------------------------------------------------
-##  $Id: Bridge.pm,v 1.12 2003/05/13 08:39:22 joko Exp $
+##  $Id: Bridge.pm,v 1.13 2003/07/01 23:26:37 joko Exp $
 ## --------------------------------------------------------------------------------
 ##  $Log: Bridge.pm,v $
+##  Revision 1.13  2003/07/01 23:26:37  joko
+##  croak to STDERR if module loading fails!
+##
 ##  Revision 1.12  2003/05/13 08:39:22  joko
 ##  autocalling constructor after instantiation
 ##  added pod documentation
@@ -246,6 +249,10 @@
   
 my $meta;
 
+
+sub DEBUG { 1 }
+
+
 ## ========   object constructor   ========
 sub new {
   my $invocant = shift;
@@ -404,7 +411,9 @@
     # FIXME: --- this is redundant ---
     if ($@) {
       $meta->{loaded}->{$package} = 0;
-      $logger->error( __PACKAGE__ . "->load: $@" ) if $logger;
+      my $msg = __PACKAGE__ . "->load: $@";
+      print STDERR $msg, "\n" if DEBUG;
+      $logger->error( $msg ) if $logger;
     } else {
       $meta->{loaded}->{$package} = 1;
     }