dopush: Break out $changes variable

[dgit.git] / dgit

diff --git a/dgit b/dgit
index e489150ec790f0959449d5d749e0bfba00e6bfa5..60ea9194054a082193d490c85d874cc676a63ee6 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -3325,7 +3325,8 @@ END
 
     # Check that changes and .dsc agree enough
     $changesfile =~ m{[^/]*$};
-    files_compare_inputs($dsc, parsecontrol($changesfile,$&))
+    my $changes = parsecontrol($changesfile,$&);
+    files_compare_inputs($dsc, $changes)
        unless forceing [qw(dsc-changes-mismatch)];
 
     # Checks complete, we're going to try and go ahead: