perl 5.6 does not do open3("-"), so we need to fork() and do lots of pipe() ourselves

1 files changed, 2 insertions, 2 deletions

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);