| Subject: | Crypt::OpenPGP::KeyRing::find_keyblock_by_uid case sensitive |
The find function for keys must be case insensitive in order to work like in GPG.
For that, the function:
sub find_keyblock_by_uid {
my $ring = shift;
my($uid) = @_;
$ring->find_keyblock(sub { $_[0]->id =~ /$uid/ },
[ PGP_PKT_USER_ID ], 1 );
}
should be:
sub find_keyblock_by_uid {
my $ring = shift;
my($uid) = @_;
$ring->find_keyblock(sub { $_[0]->id =~ /$uid/i },
[ PGP_PKT_USER_ID ], 1 );
}