From f9c5b67b14d715ecabc1364564b2523748dcb16d Mon Sep 17 00:00:00 2001 From: Peter Palfrader Date: Mon, 26 Apr 2004 14:19:14 +0000 Subject: perl 5.6 does not do open3("-"), so we need to fork() and do lots of pipe() ourselves --- Echolot/Tools.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Echolot/Tools.pm') diff --git a/Echolot/Tools.pm b/Echolot/Tools.pm index 0264cfd..ed1a022 100644 --- a/Echolot/Tools.pm +++ b/Echolot/Tools.pm @@ -286,6 +286,8 @@ sub readwrite_gpg($$$$$) { my $sin = IO::Select->new(); my $offset = 0; + Echolot::Log::debug("input is $inputfd; output is $stdoutfd; err is $stderrfd; status is ".(defined $statusfd ? $statusfd : 'undef')."."); + $inputfd->blocking(0); $stdoutfd->blocking(0); $statusfd->blocking(0) if defined $statusfd; @@ -295,8 +297,6 @@ sub readwrite_gpg($$$$$) { $sout->add($statusfd) if defined $statusfd; $sin->add($inputfd); - Echolot::Log::debug("input is $inputfd; output is $stdoutfd; err is $stderrfd; status is ".(defined $statusfd ? $statusfd : 'undef')."."); - my ($stdout, $stderr, $status) = ("", "", ""); my ($readyr, $readyw, $written); -- cgit v1.2.3