for (;;) {
print PT or die $!;
- $!=0; $_=<T>; defined or die $!;
+ $!=0; $_=<T>; defined or die "missing signature? $!";
last if m/^-----BEGIN PGP/;
}
for (;;) {
while (<DT>) {
m/^fingerprint:\s+$keyid$/oi
..0 or next;
- m/^\S/
- or reject "key $keyid missing Allow section in permissions!";
+ if (s/^allow:/ /i..0) {
+ } else {
+ m/^./
+ or reject "key $keyid missing Allow section in permissions!";
+ next;
+ }
# in right stanza...
- s/^allow:/ /i
- ..0 or next;
- s/^\s+//
+ s/^[ \t]+//
or reject "package $package not allowed for key $keyid";
# in allow field...
s/\([^()]+\)//;