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