- my @sig_cmd = (@gpg, qw(--clearsign), "../$dscfn");
- if (!$dryrun) {
- unlink "../$dscfn.asc" or $!==&ENOENT or die "$dscfn.asc $!";
- runcmd @sig_cmd;
- rename "../$dscfn.asc","../$dscfn" or die "$dscfn $!";
- } else {
- dryrun_report @sig_cmd;
- }
+ push @tag_cmd, qw(-u),$keyid if defined $keyid;
+ runcmd_ordryrun @tag_cmd;
+ my @debsign_cmd = @debsign;
+ push @debsign_cmd, "-k$keyid" if defined $keyid;
+ push @debsign_cmd, "../$changesfile";
+ runcmd_ordryrun qw(debsign);