From 96a93d8f6efbf26925d3644f10520e9320066b16 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 1 Jul 2018 12:18:22 +0100
Subject: dgit: Break out package_from_d_control (nfc)

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 dgit | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/dgit b/dgit
index bfc168c..db12d22 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) {
-- 
cgit v1.2.3