dsc import: Assign $package earlier

No functional change

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

diff --git a/dgit b/dgit
index ca343afc87f911fb832a1b0f0b79182f075dd6f4..775e03ccd6ac01ee64232a820dee6a343b52ed14 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -6022,6 +6022,7 @@ sub cmd_import_dsc {
 
     parse_dscdata();
 
+    $package = getfield $dsc, 'Source';
     parse_dsc_field($dsc, "Dgit metadata in .dsc");
 
     if (defined $dsc_hash
@@ -6058,7 +6059,6 @@ Specify  +$specbranch to overwrite, discarding existing history
 END
        if $oldhash && !$force;
 
-    $package = getfield $dsc, 'Source';
     my @dfi = dsc_files_info();
     foreach my $fi (@dfi) {
        my $f = $fi->{Filename};