sub tagh1 ($) {
my ($tag) = @_;
my $vals = $tagh{$tag};
- reject "missing tag $tag in signed tag object" unless $vals;
- reject "multiple tags $tag in signed tag object" unless @$vals == 1;
+ reject "missing header $tag in signed tag object" unless $vals;
+ reject "multiple headers $tag in signed tag object" unless @$vals == 1;
return $vals->[0];
}