From 53849d5fc76b4c7ee502129cc045c042f42eb8aa Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 14 Aug 2015 12:13:49 +0100
Subject: Do defaulting for $cleanmode just before invoking main $fn->() (nfc)

---
 dgit | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'dgit')

diff --git a/dgit b/dgit
index d7d27f8..bde052e 100755
--- a/dgit
+++ b/dgit
@@ -57,7 +57,7 @@ our $rmonerror = 1;
 our @deliberatelies;
 our %previously;
 our $existing_package = 'dpkg';
-our $cleanmode = 'dpkg-source';
+our $cleanmode;
 our $changes_since_version;
 our $quilt_mode;
 our $quilt_modes_re = 'linear|smash|auto|nofix|nocheck';
@@ -3312,6 +3312,8 @@ if (!defined $quilt_mode) {
     $quilt_mode = $1;
 }
 
+$cleanmode //= 'dpkg-source';    
+
 my $fn = ${*::}{"cmd_$cmd"};
 $fn or badusage "unknown operation $cmd";
 $fn->();
-- 
cgit v1.2.3