From c5b8f52451a60d015e8540b8f79bf4e0f195fc43 Mon Sep 17 00:00:00 2001 From: Peter Palfrader 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