--- nfo/perl/libs/Log/Dispatch/Tangram.pm	2002/10/11 04:48:05	1.2
+++ nfo/perl/libs/Log/Dispatch/Tangram.pm	2002/10/17 00:11:21	1.3
@@ -1,8 +1,12 @@
 #################################
 #
-#  $Id: Tangram.pm,v 1.2 2002/10/11 04:48:05 cvsjoko Exp $
+#  $Id: Tangram.pm,v 1.3 2002/10/17 00:11:21 joko Exp $
 #
 #  $Log: Tangram.pm,v $
+#  Revision 1.3  2002/10/17 00:11:21  joko
+#  + bugfixes regarding "deep recursion" stuff
+#  + just log to storage if storage is connected
+#
 #  Revision 1.2  2002/10/11 04:48:05  cvsjoko
 #  + added strictness (use strict, use warnings)
 #
@@ -24,7 +28,7 @@
 
 use vars qw[ $VERSION ];
 
-$VERSION = sprintf "%d.%02d", q$Revision: 1.2 $ =~ /: (\d+)\.(\d+)/;
+$VERSION = sprintf "%d.%02d", q$Revision: 1.3 $ =~ /: (\d+)\.(\d+)/;
 
 use POSIX qw(strftime);
 
@@ -132,7 +136,7 @@
     $sysEvent->{$self->{mapping}{level}} = $params{level};
     $sysEvent->{$self->{mapping}{message}} = $params{message};
 
-    $self->{storage}->insert($sysEvent);
+    $self->{storage}->isConnected() && $self->{storage}->insert($sysEvent);
 
 }