Bug#264166: libcrypt-gpg-perl: sign() method generates wrong gpg call and hangs

[Niko Tyni]

tags 264166 patch fixed-upstream
thanks

Hi,

the sign() method is broken because it's passing an empty string as one
argument to gpg. This is why it doesn't show up when the command is
pasted into a shell.

Here's a small patch stolen from upstream 1.52 that fixes this, although it
would of course be better to just update to a new upstream version.

Cheers,
-- 
Niko Tyni               [EMAIL PROTECTED]

--- GPG.pm      2005/09/30 16:40:05     1.1
+++ GPG.pm      2005/09/30 16:40:13
@@ -63,7 +63,7 @@
 
   my $detach    = '-b' if $self->{DETACH}; 
   my $armor     = '-a' if $self->{ARMOR}; 
-  my @extras    = ($detach, $armor);
+  my @extras    = grep { $_ } ($detach, $armor);
 
   my @secretkey = ('--default-key', $self->{SECRETKEY});