if (defined $line) { # only if we found a sig here - we never remove revocation packets for instance
debug("[sigremoval] doing line $line.");
my (undef, undef, undef, undef, $signer, $created, undef, undef, undef) = split /:/, $line;
if (defined $line) { # only if we found a sig here - we never remove revocation packets for instance
debug("[sigremoval] doing line $line.");
my (undef, undef, undef, undef, $signer, $created, undef, undef, undef) = split /:/, $line;