- unlink "../$dscfn.asc" or $!==&ENOENT or die "$dscfn.asc $!";
- runcmd qw(gpg --clearsign),@gpg_opts,"../$dscfn";
- rename "../$dscfn.asc","../$dscfn" or die "$dscfn $!";
- }
- if (!$nopush) {
- runcmd qw(git push),$remotename,"HEAD:".lref(uploadbranch());
- runcmd qw(dput),"../$dscfn";
+ 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;
+ }