From 138bb989160341b1e6cc7e02583e97930a641008 Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Tue, 1 Jun 2004 22:50:20 +0000
Subject: Wait until we have written everything in our select read/write for
 gpg loop

---
 Echolot/Tools.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Echolot')

diff --git a/Echolot/Tools.pm b/Echolot/Tools.pm
index fa96831..157a61a 100644
--- a/Echolot/Tools.pm
+++ b/Echolot/Tools.pm
@@ -318,7 +318,7 @@ sub readwrite_gpg($$$$$) {
 	my ($stdout, $stderr, $status) = ("", "", "");
 
 	my ($readyr, $readyw, $written);
-	while ($sout->count() > 0) {
+	while ($sout->count() > 0 || (defined($sin) && ($sin->count() > 0))) {
 		Echolot::Log::trace("select waiting for ".($sout->count())." fds.");
 		($readyr, $readyw, undef) = IO::Select::select($sout, $sin, undef, 42);
 		Echolot::Log::trace("ready: write: ".(scalar @$readyw)."; read: ".(scalar @$readyr));
-- 
cgit v1.2.3