chiark / gitweb /
dgit: Break out package_from_d_control (nfc)
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 1 Jul 2018 11:18:22 +0000 (12:18 +0100)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 1 Jul 2018 11:22:42 +0000 (12:22 +0100)
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
dgit

diff --git a/dgit b/dgit
index bfc168c..db12d22 100755 (executable)
--- 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) {