diff options
| author | gregor herrmann <gregoa@debian.org> | 2023-12-15 22:14:01 +0100 |
|---|---|---|
| committer | gregor herrmann <gregoa@debian.org> | 2023-12-15 22:14:01 +0100 |
| commit | 2f151af2ba9f3258ea30442a12bc38961ce991f4 (patch) | |
| tree | 529f9557070176b7044a291de7585df97e760c34 | |
| parent | 9a8e0abde14588916c39fc573b020cf6c8b5d02a (diff) | |
Add stdin handler to _version sub
Origin: vendor
Bug: https://github.com/bestpractical/gnupg-interface/issues/8
Bug-Debian: https://bugs.debian.org/1016125
Last-Update: 2023-09-17
Gbp-Pq: Name version-stdin.patch
| -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+)/; |