--- nfo/perl/libs/Log/Dispatch/Tangram.pm	2002/10/10 03:44:42	1.1
+++ nfo/perl/libs/Log/Dispatch/Tangram.pm	2002/10/17 00:11:21	1.3
@@ -1,8 +1,15 @@
 #################################
 #
-#  $Id: Tangram.pm,v 1.1 2002/10/10 03:44:42 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)
+#
 #  Revision 1.1  2002/10/10 03:44:42  cvsjoko
 #  + new
 #
@@ -12,6 +19,7 @@
 package Log::Dispatch::Tangram;
 
 use strict;
+use warnings;
 
 use Log::Dispatch::Output;
 
@@ -20,7 +28,7 @@
 
 use vars qw[ $VERSION ];
 
-$VERSION = sprintf "%d.%02d", q$Revision: 1.1 $ =~ /: (\d+)\.(\d+)/;
+$VERSION = sprintf "%d.%02d", q$Revision: 1.3 $ =~ /: (\d+)\.(\d+)/;
 
 use POSIX qw(strftime);
 
@@ -128,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);
 
 }