diff options
| author | Peter Palfrader <peter@palfrader.org> | 2004-04-24 14:55:49 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2004-04-24 14:55:49 +0000 |
| commit | 544856338d731e08a8ae00e694aa8cc2a45d141d (patch) | |
| tree | aebceeec67e955bc4fca215b5f2b3152e032d1b8 /Echolot/Conf.pm | |
| parent | 75da8751b1e5a5a39f8743b44971224b0ab34c31 (diff) | |
Switch to a common readwrite_gpg()
Diffstat (limited to 'Echolot/Conf.pm')
| -rw-r--r-- | Echolot/Conf.pm | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/Echolot/Conf.pm b/Echolot/Conf.pm index 19ea43f..abe69c8 100644 --- a/Echolot/Conf.pm +++ b/Echolot/Conf.pm @@ -365,13 +365,7 @@ sub parse_cpunk_key($$$) { commands => [qw{--with-colons}], command_args => [qw{--no-options --no-secmem-warning --no-default-keyring --fast-list-mode}], handles => $handles ); - print $stdin_fh $key; - close($stdin_fh); - - my $stdout = join '', <$stdout_fh>; close($stdout_fh); - my $stderr = join '', <$stderr_fh>; close($stderr_fh); - my $status = join '', <$status_fh>; close($status_fh); - + my ($stdout, $stderr, $status) = readwrite_gpg($key, $stdin_fh, $stdout_fh, $stderr_fh, $status_fh); waitpid $pid, 0; ($stderr eq '') or |