dgit: clean: Provide -wg[f]a short aliases

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/dgit b/dgit
index 87ab8625018c0d5ad47e576d7b27a3c832152704..d16e5b75cbb516af2e08ed3b01c3307278500d49 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -7299,10 +7299,11 @@ sub parseopts () {
                } elsif (s/^-wn$//s) {
                    push @ropts, $&;
                    $cleanmode = 'none';
-               } elsif (s/^-wg(f?)$//s) {
+               } elsif (s/^-wg(f?)(a?)$//s) {
                    push @ropts, $&;
                    $cleanmode = 'git';
                    $cleanmode .= '-ff' if $1;
+                   $cleanmode .= ',always' if $2;
                } elsif (s/^-wd(d?)([na]?)$//s) {
                    push @ropts, $&;
                    $cleanmode = 'dpkg-source';