From 7fdd29c7f95ad12e0d90757f8c50a45a00a76cd6 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] clusterd: make push_file errors like "to big" fatal

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

diff --git a/clusterd/clusterd b/clusterd/clusterd
index 6454a40c..e1deb597 100755
--- a/clusterd/clusterd
+++ b/clusterd/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;