diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2013-08-24 16:15:23 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2013-08-24 16:15:23 +0100 |
commit | 98cc9f5ee0e1a448c10dbee264fa8ada8d023e54 (patch) | |
tree | dbbd3b1b0a4fe28b58587d2230b9b0730c583c99 | |
parent | 5616b78952e95f848c30600f23ca34db0bd4148b (diff) |
new cleaning arrangements
-rwxr-xr-x | dgit | 10 |
1 files changed, 8 insertions, 2 deletions
@@ -37,7 +37,7 @@ our $dryrun = 0; our $changesfile; our $new_package = 0; our $existing_package = 'dpkg'; -our $clean = 'dpkg-source'; +our $cleanmode = 'dpkg-source'; 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', - $sourcechanges, + "../$sourcechanges", @dpkggenchanges, qw(-S), changesopts(); } } @@ -1101,6 +1101,12 @@ sub parseopts () { $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 \`$_'"; } |