diff -u3 Crypt-GPG-1.40.orig/GPG.pm Crypt-GPG-1.40.drhfixes2/GPG.pm
--- Crypt-GPG-1.40.orig/GPG.pm	Fri Oct 18 16:59:06 2002
+++ Crypt-GPG-1.40.drhfixes2/GPG.pm	Fri Oct 18 17:00:13 2002
@@ -245,6 +245,7 @@
       $expect->expect(undef, '-re', '-----BEGIN PGP', 
 		      'Use this key anyway?', 'key not found', 
 		      'phrase:');
+    return if $err;
     if ($pos==4) {
       $self->doze(); print $expect "$self->{PASSPHRASE}\r";
       ($pos, $err, $matched, $before, $after) = 
@@ -252,6 +253,7 @@
 			'Use this key anyway?', 
 			'key not found', 'phrase:');
       return if ($pos==4);
+      return if $err;
     }
   }
   
Common subdirectories: Crypt-GPG-1.40.orig/t and Crypt-GPG-1.40.drhfixes2/t