implemented prodection against broken pipe (remote ssh connection pipe)

1 files changed, 5 insertions, 2 deletions

diff --git a/loadbars.pl b/loadbars.pl
index 31a1acc..0c3b7c0 100755
--- a/loadbars.pl
+++ b/loadbars.pl
@@ -42,7 +42,7 @@ use SDL::Rect;
 use SDL::Color;
 use SDL::Event;
 
-#use SDL::TTF qw();
+use SDL::Font;
 
 use Time::HiRes qw(usleep gettimeofday);
 
@@ -132,7 +132,10 @@ BASH
 		my $cmd = $host eq 'localhost' ? $bash 
 			: "ssh -o StrictHostKeyChecking=no $CONF{sshopts} $host '$bash'";
 
-		my $pid = open2 my $out, my $in, $cmd or die "Error: $!\n";
+		my $pid = open2 my $out, my $in, $cmd or do {
+			say "Warning: $!";
+			return;
+		};
 
 		$SIG{STOP} = sub {
 			say "Shutting down get_stat($host) & PID $pid";