Actual error messages

[modbot-mtm.git] / stump / bin / decodeBase64

diff --git a/stump/bin/decodeBase64 b/stump/bin/decodeBase64
index 601c62bce54f5cb03b07262e75b70929ce8814be..61a025b3b19924a536494c1099039a0aca7dd5b1 100755 (executable)
--- a/stump/bin/decodeBase64
+++ b/stump/bin/decodeBase64
@@ -32,12 +32,12 @@ while(<>) {
 if( !$isEncoded ) {
   print $FullHeaders . "\n";
   while( <> ) {
-    print;
+    print or die $!;
   }
   exit 0;
 }
 
-print $DecodedHeaders . "\n";
+print $DecodedHeaders . "\n" or die $!;
 
 if( $ENV{'TMP'} ) {
   $TmpFile = "$ENV{'TMP'}/letter.$$";
@@ -49,14 +49,14 @@ open( DECODE, "|mimencode -u $switch > $TmpFile" )
   || die "Can't run mmencode writing to $TmpFile";
 
   while( <> ) {
-    print DECODE;
+    print DECODE or die $!;
   }
-close( DECODE );
+close( DECODE ) or die "$? $!";
 
 open( DECODED, $TmpFile ) || die "Can't open just decoded file $TmpFile";
   while( <DECODED> ) {
-    print;
+    print or die $!;
   }
-close( DECODED );
+close( DECODED ) or die "$? $!";
 
 unlink( $TmpFile );