From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 1 Jul 2018 11:18:22 +0000 (+0100)
Subject: dgit: Break out package_from_d_control (nfc)
X-Git-Tag: archive/debian/5.7~18
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=commitdiff_plain;h=96a93d8f6efbf26925d3644f10520e9320066b16

dgit: Break out package_from_d_control (nfc)

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/dgit b/dgit
index bfc168c2..db12d229 100755
--- a/dgit
+++ b/dgit
@@ -4597,11 +4597,15 @@ sub branchsuite () {
     }
 }
 
-sub fetchpullargs () {
+sub package_from_d_control () {
     if (!defined $package) {
 	my $sourcep = parsecontrol('debian/control','debian/control');
 	$package = getfield $sourcep, 'Source';
     }
+}
+
+sub fetchpullargs () {
+    package_from_d_control();
     if (@ARGV==0) {
 	$isuite = branchsuite();
 	if (!$isuite) {