From 8f52891ef4c7a803a1d8576897180a34b36a4e16 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Fri, 14 Aug 2015 14:29:48 +0100 Subject: [PATCH] Convert to defvalopt: -k --- dgit | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/dgit b/dgit index 6f4565bf..6ca1f33b 100755 --- a/dgit +++ b/dgit @@ -3124,6 +3124,7 @@ sub defvalopt ($$$$) { 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; @@ -3245,8 +3246,6 @@ sub parseopts () { push @ropts, $&; push @changesopts, $_; $_ = ''; - } elsif (s/^-k(.+)//s) { - $keyid=$1; } elsif (m/^-[dCk]$/) { badusage "option \`$_' requires an argument (and no space before the argument)"; -- 2.30.2