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

diff --git a/dgit b/dgit
index d7d27f834c4c9d349ceb2e78553c2852a239464b..bde052ea4f9dc22708b18101fcac329ceb7e5fc4 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -57,7 +57,7 @@ our $rmonerror = 1;
 our @deliberatelies;
 our %previously;
 our $existing_package = 'dpkg';
 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';
 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;
 }
 
     $quilt_mode = $1;
 }
 

+$cleanmode //= 'dpkg-source';    
+

 my $fn = ${*::}{"cmd_$cmd"};
 $fn or badusage "unknown operation $cmd";
 $fn->();
 my $fn = ${*::}{"cmd_$cmd"};
 $fn or badusage "unknown operation $cmd";
 $fn->();