# from
#    $self->abort_gnupg( "protocol error: expected DECRYPTION_OKAY got $cmd: \n" ) 
#      unless $cmd =~ /DECRYPTION_OKAY/; 

# to
    $self->abort_gnupg( "protocol error: expected PLAINTEXT got $cmd: \n" )
      unless $cmd =~ /PLAINTEXT/;