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];
}
# fixme:
# reject "unknown suite";
-# 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;
# or reject "command string not understood";
# reject "unknown method" unless $mainfunc;