X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=dgit;h=5f1ef2e59bc3864faf7f5d4abcd27409018ee9f3;hb=07261afb451ed4420d3dbda87613fa1229130276;hp=2852e134289d3e4076c917e0c349d8e208953eaf;hpb=a3522f3c05881c36b5630fc6aaa21dde22b5dd06;p=dgit.git

diff --git a/dgit b/dgit
index 2852e134..5f1ef2e5 100755
--- a/dgit
+++ b/dgit
@@ -1948,6 +1948,11 @@ sub clean_tree () {
     }
 }
 
+sub cmd_clean () {
+    badusage "clean takes no additional arguments" if @ARGV;
+    clean_tree();
+}
+
 sub build_prep () {
     badusage "-p is not allowed when building" if defined $package;
     check_not_dirty();