Quoting is gpg's job now
authorweasel <weasel@b513b33f-fedd-0310-b452-c3deb5f4c849>
Tue, 16 Aug 2005 15:20:48 +0000 (15:20 +0000)
committerweasel <weasel@b513b33f-fedd-0310-b452-c3deb5f4c849>
Tue, 16 Aug 2005 15:20:48 +0000 (15:20 +0000)
git-svn-id: svn://svn.debian.org/pgp-tools/trunk@192 b513b33f-fedd-0310-b452-c3deb5f4c849

keylookup/keylookup

index 4c097a92c4dd2f9bc12d398dc96a2db541e7132b..115578015469f31b7219fa000d7724cd05fdb2d5 100755 (executable)
@@ -95,7 +95,7 @@ sub getHits($) {
                push @ops, '--with-colons';
                push @ops, '--fixed-list-mode';
                push @ops, '--search';
-               push @ops, $options->{'search'};
+               push @ops, @{$options->{'search'}};
                exec(@ops);
                die ("Cannot exec GnuPG: $!\n");
        };
@@ -345,10 +345,7 @@ sub version {
 
        ## Take all additional arguments to the program as a search target,
        ## escape the string for use in URLs.
-       $options{'search'} = join ' ', @ARGV;
-       $options{'search'} =~ s/ ( [^A-Za-z0-9] )
-                              / '%' . unpack("H2", $1)
-                              /xeg;
+       $options{'search'} = \@ARGV;
        my $keys = getHits( \%options );
        my $keyids;