X-Git-Url: https://ruderich.org/simon/gitweb/?p=fcscs%2Ffcscs.git;a=blobdiff_plain;f=bin%2Ffcscs;fp=bin%2Ffcscs;h=27c133a35a71388f2c66f0c13fbfb976d3190e98;hp=da614bc396b3af1d6214d42aec7f425fc9fe118f;hb=ea3bc49201432df82468c251e8fd1f259b579a64;hpb=23d32b9dae77a88ea040983ab82f3ad7b6e57b9e

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') {