die when 822 changelog parse fails

1 files changed, 1 insertions, 1 deletions

diff --git a/dgit b/dgit
index 31e57c5..45b2c80 100755
--- 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';