die when 822 changelog parse fails

diff --git a/dgit b/dgit
index 31e57c5b9a3e2f5e0d47332a85d28fcc288256e8..45b2c80da9b5e76a6729897f4b41f6dac40d0581 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -1113,7 +1113,7 @@ sub push_parse_changelog ($) {
     my ($clogpfn) = @_;
 
     my $clogp = Dpkg::Control::Hash->new();
-    $clogp->load($clogpfn);
+    $clogp->load($clogpfn) or die;
 
     $package = getfield $clogp, 'Source';
     my $cversion = getfield $clogp, 'Version';