defvalopt '--since-version', '-v', '[^_]+|_', \$changes_since_version;
defvalopt '--distro', '-d', '.+', \$idistro;
+defvalopt '', '-k', '.+', \$keyid;
defvalopt '--existing-package','', '.*', \$existing_package;
defvalopt '--build-products-dir','','.*', \$buildproductsdir;
defvalopt '--clean', '', $cleanmode_re, \$cleanmode;
push @ropts, $&;
push @changesopts, $_;
$_ = '';
- } elsif (s/^-k(.+)//s) {
- $keyid=$1;
} elsif (m/^-[dCk]$/) {
badusage
"option \`$_' requires an argument (and no space before the argument)";