Bug#549743: [rt.cpan.org #50348] FTBFS when compiling "non-interactively"
Salvatore Bonaccorso
salvatore.bonaccorso at gmail.com
Sun Nov 1 21:15:36 UTC 2009
Hi Jesse
I'm cc'ing the Debian bugreport (http://bugs.debian.org/549743).
On Mon, Oct 12, 2009 at 02:40:50PM -0400, Jesse via RT wrote:
> So, I'm not the original author of GnuPG::Interface, just its
> caretaker. It looks like the original code is specifically testing
> gnupg's ability to read from /dev/tty as part of the test suite.
>
> I'd happily take a patch, but at fist glance, I'm not sure what the
> "right" fix is.
Yes you are right! It is on line 89 of lib/GnuPG/Options. If one sets
---(diff)---------------------------------------------------------------
--- lib/GnuPG/Options.pm (revision 46640)
+++ lib/GnuPG/Options.pm (working copy)
@@ -86,7 +86,7 @@
sub BUILD {
my ( $self, $args ) = @_;
- $self->hash_init( meta_interactive => 1 );
+ $self->hash_init( meta_interactive => 0 );
$self->hash_init(%$args);
}
------------------------------------------------------------------------
then the build works.
Thus: What would be about the following?
---(patch)--------------------------------------------------------------
--- t/MyTestSpecific.pm (revision 46640)
+++ t/MyTestSpecific.pm (working copy)
@@ -26,6 +26,8 @@
use GnuPG::Interface;
use GnuPG::Handles;
+use Any::Moose;
+
use vars qw( @ISA @EXPORT
$stdin $stdout $stderr
$gpg_program $handles $gnupg
@@ -38,6 +40,11 @@
texts file_match
);
+sub BUILD {
+ my ( $self, $args ) = @_;
+ $self->hash_init( meta_interactive => 0 );
+ $self->hash_init(%$args);
+}
for my $gpg qw(gpg gpg2) {
my $gpg_find = "which $gpg";
------------------------------------------------------------------------
Thanks to Gregor Hermann helping investigating!
Bests
Salvatore
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 836 bytes
Desc: Digital signature
URL: <http://lists.alioth.debian.org/pipermail/pkg-perl-maintainers/attachments/20091101/70ec8b81/attachment.pgp>
More information about the pkg-perl-maintainers
mailing list