Actual error messages

[modbot-mtm.git] / webstump / scripts / gatekeeper-file-message.pl

diff --git a/webstump/scripts/gatekeeper-file-message.pl b/webstump/scripts/gatekeeper-file-message.pl
index 8b0db62c0f0725b7ed5975e4e8897992a2191e49..7f160ba1a08864bf805e5beff55ac40adc47564d 100755 (executable)
--- a/webstump/scripts/gatekeeper-file-message.pl
+++ b/webstump/scripts/gatekeeper-file-message.pl
@@ -36,7 +36,7 @@ $file = "$queue_dir/$time.$$";
 open( QUEUE_FILE, ">$file" ) || die "Could not open $file for writing";
 
 while( <STDIN> ) {
-  print QUEUE_FILE;
+  print QUEUE_FILE or die $!;
 }
 
-close( QUEUE_FILE );
+close( QUEUE_FILE ) or die $!;