Tweak

diff --git a/scripts/receive.pl b/scripts/receive.pl
index 27f423ab0bc3b1c78239714db8e8cccca1780cd0..22632b5a03173c963c05073e4418e1c30493b7ed 100755 (executable)
--- a/scripts/receive.pl
+++ b/scripts/receive.pl
@@ -75,6 +75,8 @@ rename( "T.$id", "$prefix$queue.$id" ) || &failure("rename spool message: $!");
 
 if ( $c{ArchiveIncoming} ) {
     my $archive = sprintf( "$c{SpoolDir}/%04d-%02d/", $year + 1900, $mon + 1 );
+
+    # Consider failure here non-fatal
     eval {
         if ( !-d $archive )
         {
@@ -85,8 +87,8 @@ if ( $c{ArchiveIncoming} ) {
     };
     if ($@) {
         chomp($@);
-        print STDERR "$@";
-        print STDERR "Continuing";
+        print STDERR "$@\n";
+        print STDERR "Continuing\n";
     }
 }