X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=Debian%2FDgit.pm;h=80b693b68990be00a1f5d003a331d25e5fcefb90;hp=d2484f9423b7be4535ea22154db625b794660d10;hb=73806a4b22c2265bac6a269bd5ba8abc81f88ae1;hpb=f8202c5af8682e4e5779aefad8e1c1392f438e89

diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm
index d2484f94..80b693b6 100644
--- a/Debian/Dgit.pm
+++ b/Debian/Dgit.pm
@@ -422,7 +422,7 @@ sub link_ltarget ($$) {
     }
     my $r = link $old, $new;
     $r = symlink $old, $new if !$r && $!==EXDEV;
-    $r or die "(sym)link $old $new: $!";
+    $r or fail "(sym)link $old $new: $!\n";
 }
 
 sub hashfile ($) {
@@ -630,7 +630,7 @@ sub parsecontrolfh ($$;$) {
 	my %opts = ('name' => $desc);
 	$opts{allow_pgp}= $allowsigned || !$dpkgcontrolhash_noissigned;
 	$c = Dpkg::Control::Hash->new(%opts);
-	$c->parse($fh,$desc) or die "parsing of $desc failed";
+	$c->parse($fh,$desc) or fail "parsing of $desc failed";
 	last if $allowsigned;
 	last if $dpkgcontrolhash_noissigned;
 	my $issigned= $c->get_option('is_pgp_signed');