--- nfo/perl/libs/Data/Storage/Handler/File.pm	2002/12/13 21:47:27	1.1
+++ nfo/perl/libs/Data/Storage/Handler/File.pm	2003/01/19 02:13:24	1.2
@@ -7,6 +7,7 @@
 our @ISA = qw( Exporter );
 our @EXPORT_OK = qw( 
   s2f
+  a2f
 );
 
 sub s2f {
@@ -31,11 +32,18 @@
 sub a2f {
   my $filename = shift;
   my $string = shift;
-  open(FH, '>>' . $filename);
-  print FH "\n";
+  open(FH, '>>' . $filename) or do {
+    print "Could not append to \"$filename\"!", "\n";
+    print "Log-Message was: ";
+    print $string if $string;
+    print "\n";
+    return;
+  };
+  #print FH "\n";
   print FH $string;
   print FH "\n";
   close(FH);
+  return 1;
 }
 
 sub ris {