X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=dgit;h=2069298b906741e9d6f2a93f5afe793ccf5146c4;hp=d59d2f5f17d7652131628ee502f0c667e100ed8b;hb=a9fe4afebac6f0450fa7ed5ff73b8d6d7792fe32;hpb=399e378d0e45338911e0d55a3d34988172c609d9

diff --git a/dgit b/dgit
index d59d2f5f..2069298b 100755
--- a/dgit
+++ b/dgit
@@ -1209,10 +1209,12 @@ our ($dsc_hash,$lastpush_hash);
 
 our $ud = '.git/dgit/unpack';
 
-sub prep_ud () {
-    rmtree($ud);
+sub prep_ud (;$) {
+    my ($d) = @_;
+    $d //= $ud;
+    rmtree($d);
     mkpath '.git/dgit';
-    mkdir $ud or die $!;
+    mkdir $d or die $!;
 }
 
 sub mktree_in_ud_here () {