From c5b8f52451a60d015e8540b8f79bf4e0f195fc43 Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Mon, 14 Jun 2004 13:45:16 +0000
Subject: Check if syswrite's return value is defined

---
 Echolot/Tools.pm | 3 +++
 NEWS             | 1 +
 2 files changed, 4 insertions(+)

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.");
diff --git a/NEWS b/NEWS
index 243418b..e6aea1e 100644
--- a/NEWS
+++ b/NEWS
@@ -1,6 +1,7 @@
 Changes in version XXXXX - 2004      
 	* Fix use of an illegal filedescriptor when we know of a remailer,
 	  but do not have keys for it yet/anymore.
+	* Check if syswrite's return value is defined.
 
 Changes in version 2.1.4 - 2004-06-10
 	* Have new disable and enable commands which are shortcut
-- 
cgit v1.2.3