diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-08-14 12:13:49 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-08-14 18:34:57 +0100 |
commit | 53849d5fc76b4c7ee502129cc045c042f42eb8aa (patch) | |
tree | 356e0773cf5f47d13cda1d78b518d4c2bfd7261d | |
parent | 268c7b9f82a0333f0de7ec09f3261e84deb8fb7b (diff) |
Do defaulting for $cleanmode just before invoking main $fn->() (nfc)
-rwxr-xr-x | dgit | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -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->(); |