diff options
| author | Peter Palfrader <peter@palfrader.org> | 2004-04-24 12:25:10 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2004-04-24 12:25:10 +0000 |
| commit | 75da8751b1e5a5a39f8743b44971224b0ab34c31 (patch) | |
| tree | 3e194bcac050e2876c1821fd40f00b91dff63a91 /Echolot/Conf.pm | |
| parent | 82c0bb931633d67a7e60bddb756264edcd4620b6 (diff) | |
Move duplicated IO::Handle preperations for GnuPG::Interface to Echolot::Tools::make_gpg_fds.
Diffstat (limited to 'Echolot/Conf.pm')
| -rw-r--r-- | Echolot/Conf.pm | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/Echolot/Conf.pm b/Echolot/Conf.pm index 53340eb..19ea43f 100644 --- a/Echolot/Conf.pm +++ b/Echolot/Conf.pm @@ -25,7 +25,6 @@ account (This is the one with the latest self signature I think). use strict; use Echolot::Log; use GnuPG::Interface; -use IO::Handle; sub is_not_a_remailer($) { @@ -361,19 +360,7 @@ sub parse_cpunk_key($$$) { (?:[a-zA-Z0-9+\/=]*\r?\n)+ -----END \s PGP \s PUBLIC \s KEY \s BLOCK-----$/xmg ); for my $key (@pgp_keys) { - my ( $stdin_fh, $stdout_fh, $stderr_fh, $status_fh ) - = ( IO::Handle->new(), - IO::Handle->new(), - IO::Handle->new(), - IO::Handle->new(), - ); - my $handles = GnuPG::Handles->new ( - stdin => $stdin_fh, - stdout => $stdout_fh, - stderr => $stderr_fh, - status => $status_fh - ); - + my ( $stdin_fh, $stdout_fh, $stderr_fh, $status_fh, $handles ) = Echolot::Tools::make_gpg_fds(); my $pid = $GnuPG->wrap_call( commands => [qw{--with-colons}], command_args => [qw{--no-options --no-secmem-warning --no-default-keyring --fast-list-mode}], |