chiark
/
gitweb
/
~ianmdlvl
/
dgit.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Complain about lack of cuddled values for value-taking single-letter options, rather...
[dgit.git]
/
dgit
diff --git
a/dgit
b/dgit
index d936acdfecb30da0aea88a5f808d4f594855acde..839f93ffe04b34509e6b4131979e231eb65ca3aa 100755
(executable)
--- a/
dgit
+++ b/
dgit
@@
-2718,17
+2718,20
@@
sub parseopts () {
} elsif (s/^-c(.*=.*)//s) {
push @ropts, $&;
push @git, '-c', $1;
} elsif (s/^-c(.*=.*)//s) {
push @ropts, $&;
push @git, '-c', $1;
- } elsif (s/^-d(.
*
)//s) {
+ } elsif (s/^-d(.
+
)//s) {
push @ropts, $&;
$idistro = $1;
push @ropts, $&;
$idistro = $1;
- } elsif (s/^-C(.
*
)//s) {
+ } elsif (s/^-C(.
+
)//s) {
push @ropts, $&;
$changesfile = $1;
if ($changesfile =~ s#^(.*)/##) {
$buildproductsdir = $1;
}
push @ropts, $&;
$changesfile = $1;
if ($changesfile =~ s#^(.*)/##) {
$buildproductsdir = $1;
}
- } elsif (s/^-k(.
*
)//s) {
+ } elsif (s/^-k(.
+
)//s) {
$keyid=$1;
$keyid=$1;
+ } elsif (m/^-[vdCk]$/) {
+ badusage
+ "option \`$_' requires an argument (and no space before the argument)";
} elsif (s/^-wn//s) {
push @ropts, $&;
$cleanmode = 'none';
} elsif (s/^-wn//s) {
push @ropts, $&;
$cleanmode = 'none';