Check if syswrite's return value is defined

1 files changed, 3 insertions, 0 deletions

diff --git a/Echolot/Tools.pm b/Echolot/Tools.pm
index 157a61a..d1a10a2 100644
--- a/Echolot/Tools.pm
+++ b/Echolot/Tools.pm
@@ -325,6 +325,9 @@ sub readwrite_gpg($$$$$) {
 		for my $wfd (@$readyw) {
 			Echolot::Log::trace("writing to $wfd.");
 			$written = $wfd->syswrite($in, length($in) - $offset, $offset);
+			defined ($written) or
+				Echolot::Log::warn("Error while writing to GnuPG: $!"),
+				next;
 			$offset += $written;
 			if ($offset == length($in)) {
 				Echolot::Log::trace("writing to $wfd done.");