make push_file errors like "to big" fatal

mariux64 · Jun 21, 2016 · d0ea3e5 · d0ea3e5
1 parent c1c0896
commit d0ea3e5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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;