From d0ea3e5eae46e08c93fa98506d4089114585eea4 Mon Sep 17 00:00:00 2001
From: Donald Buczek <buczek@molgen.mpg.de>
Date: Tue, 21 Jun 2016 09:00:33 +0200
Subject: [PATCH] make push_file errors like "to big" fatal

---
 clusterd | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/clusterd b/clusterd
index 6454a40..e1deb59 100755
--- a/clusterd
+++ b/clusterd
@@ -381,8 +381,8 @@ sub push_file {
 
 	my $st=Donald::FileInfo->lstat($filename);
 	defined $st or return warn "$filename: $!\n";
-	$st->type eq 'F' or return warn "$filename: not a plain file\n";
-	$st->size<=40960 or return warn "$filename: to big for broadcast (max 40960 bytes)\n";
+	$st->type eq 'F' or die "$filename: not a plain file\n";
+	$st->size<=40960 or die "$filename: to big for broadcast (max 40960 bytes)\n";
 
 	my $fh=new IO::File $filename,'<' or return warn "$filename: $!\n";
 	my $i=0;