From: Simon Ruderich Date: Mon, 1 Feb 2016 07:52:44 +0000 (+0100) Subject: add missing "or die $!;" X-Git-Url: https://ruderich.org/simon/gitweb/?a=commitdiff_plain;h=ea3bc49201432df82468c251e8fd1f259b579a64;p=fcscs%2Ffcscs.git add missing "or die $!;" --- diff --git a/bin/fcscs b/bin/fcscs index da614bc..27c133a 100755 --- a/bin/fcscs +++ b/bin/fcscs @@ -370,7 +370,7 @@ package Screen { foreach (@args) { $_ = $self->encode($_); } - say $fh "$module: @args"; + say $fh "$module: @args" or CORE::die $!; return; } @@ -878,7 +878,7 @@ sub handler_yank { # Use a temporary file to prevent leaking the yanked data to other users # with the command line, e.g. ps aux or top. my ($fh, $tmp) = File::Temp::tempfile(); # dies on its own - print $fh $screen->encode($match->{value}); + print $fh $screen->encode($match->{value}) or die $!; close $fh or die $!; if ($config->{setting}{multiplexer} eq 'screen') {