$NetBSD: patch-aa,v 1.1.1.1 2005/01/10 18:22:23 tv Exp $

--- lib/GnuPG/Interface.pm.orig	Fri Aug 15 14:37:00 2003
+++ lib/GnuPG/Interface.pm
@@ -690,6 +690,15 @@ sub recv_keys( $% )
 
 
 
+sub search_keys( $% )
+{
+    my ( $self, %args ) = @_;
+    return $self->wrap_call( %args,
+			     commands => [ '--search-keys' ] );
+}
+
+
+
 sub send_keys( $% )
 {
     my ( $self, %args ) = @_;
@@ -885,6 +894,8 @@ This methods work as described in L<Clas
 =item export_keys( % )
 
 =item recv_keys( % )
+
+=item search_keys( % )
 
 =item send_keys( % )
 
