r57104 - /trunk/libgnupg-interface-perl/debian/patches/fix-list_public_keys-pod.patch

[carnil-guest at users.alioth.debian.org]

Author: carnil-guest
Date: Thu Apr 29 10:07:43 2010
New Revision: 57104

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=57104
Log:
fix patch as suggested by Ansgar

Modified:
    trunk/libgnupg-interface-perl/debian/patches/fix-list_public_keys-pod.patch

Modified: trunk/libgnupg-interface-perl/debian/patches/fix-list_public_keys-pod.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgnupg-interface-perl/debian/patches/fix-list_public_keys-pod.patch?rev=57104&op=diff
==============================================================================
--- trunk/libgnupg-interface-perl/debian/patches/fix-list_public_keys-pod.patch (original)
+++ trunk/libgnupg-interface-perl/debian/patches/fix-list_public_keys-pod.patch Thu Apr 29 10:07:43 2010
@@ -10,12 +10,12 @@
 
 --- a/lib/GnuPG/Interface.pm
 +++ b/lib/GnuPG/Interface.pm
-@@ -1142,7 +1142,7 @@
+@@ -1136,7 +1136,7 @@
+   # and read from our input, because no input is needed!
+   my $handles = GnuPG::Handles->new();
+   
+-  my @ids = [ 'ftobin', '0xABCD1234' ];
++  my @ids = ( 'ftobin', '0xABCD1234' );
+ 
+   # this time we need to specify something for
    # command_args because --list-public-keys takes
-   # search ids as arguments
-   my $pid = $gnupg->list_public_keys( handles      => $handles,
--                                      command_args => [ @ids ]  );
-+                                      command_args => @ids );
-   
-    waitpid $pid, 0;
-