diff options
Diffstat (limited to 'lib/GnuPG/Interface.pm')
| -rw-r--r-- | lib/GnuPG/Interface.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/GnuPG/Interface.pm b/lib/GnuPG/Interface.pm index fb5f1f2..851bbbd 100644 --- a/lib/GnuPG/Interface.pm +++ b/lib/GnuPG/Interface.pm @@ -825,7 +825,8 @@ sub _version { my ( $self ) = @_; my $out = IO::Handle->new; - my $handles = GnuPG::Handles->new( stdout => $out ); + my $in = IO::Handle->new; + my $handles = GnuPG::Handles->new( stdout => $out, stdin => $in ); my $pid = $self->wrap_call( commands => [ '--no-options', '--version' ], handles => $handles ); my $line = $out->getline; $line =~ /(\d+\.\d+\.\d+)/; |