chiark
/
gitweb
/
~ianmdlvl
/
dgit.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
new cleaning arrangements
[dgit.git]
/
dgit
diff --git
a/dgit
b/dgit
index 37b235b33e4a4741b16c328304915bf1d95f41f3..b6e79e36bca1ca1b1cd1cd124c0593c626bd275e 100755
(executable)
--- a/
dgit
+++ b/
dgit
@@
-37,7
+37,7
@@
our $dryrun = 0;
our $changesfile;
our $new_package = 0;
our $existing_package = 'dpkg';
our $changesfile;
our $new_package = 0;
our $existing_package = 'dpkg';
-our $clean = 'dpkg-source';
+our $clean
mode
= 'dpkg-source';
our %format_ok = map { $_=>1 } ("1.0","3.0 (native)","3.0 (quilt)");
our %format_ok = map { $_=>1 } ("1.0","3.0 (native)","3.0 (quilt)");
@@
-1008,7
+1008,7
@@
sub build_source {
chdir $pwd or die $!;
runcmd_ordryrun qw(sh -ec),
'exec >$1; shift; exec "$@"','x',
chdir $pwd or die $!;
runcmd_ordryrun qw(sh -ec),
'exec >$1; shift; exec "$@"','x',
-
$sourcechanges
,
+
"../$sourcechanges"
,
@dpkggenchanges, qw(-S), changesopts();
}
}
@dpkggenchanges, qw(-S), changesopts();
}
}
@@
-1101,6
+1101,12
@@
sub parseopts () {
$changesfile = $1;
} elsif (s/^-k(.*)//s) {
$keyid=$1;
$changesfile = $1;
} elsif (s/^-k(.*)//s) {
$keyid=$1;
+ } elsif (s/^-wn//s) {
+ $cleanmode = 'none';
+ } elsif (s/^-wg//s) {
+ $cleanmode = 'git';
+ } elsif (s/^-wd//s) {
+ $cleanmode = 'dpkg-source';
} else {
badusage "unknown short option \`$_'";
}
} else {
badusage "unknown short option \`$_'";
}