dgit: update-vcs-git: Honour --package properly.

[dgit.git] / dgit

diff --git a/dgit b/dgit
index db12d229e2faecffc675658398f366cc02ae9018..404eab9620edd61190668285164899d0010ad960 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -4658,11 +4658,10 @@ sub cmd_update_vcs_git () {
        }
     }
 
-    my $sourcep = parsecontrol 'debian/control', 'debian/control';
-    $package = getfield $sourcep, 'Source';
+    package_from_d_control();
     my $ctrl;
     if ($specsuite eq '.') {
-       $ctrl = $sourcep;
+       $ctrl = parsecontrol 'debian/control', 'debian/control';
     } else {
        $isuite = $specsuite;
        get_archive_dsc();