From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 14 Aug 2015 11:13:49 +0000 (+0100)
Subject: Do defaulting for $cleanmode just before invoking main $fn->() (nfc)
X-Git-Tag: debian/1.2~20
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=commitdiff_plain;h=53849d5fc76b4c7ee502129cc045c042f42eb8aa

Do defaulting for $cleanmode just before invoking main $fn->() (nfc)
---

diff --git a/dgit b/dgit
index d7d27f83..bde052ea 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->();