chiark / gitweb /
Dgit.pm: fail: Strip any trailing newline
[dgit.git] / Debian / Dgit.pm
index bfa76cc..7c43059 100644 (file)
@@ -159,6 +159,7 @@ sub _us () {
 
 sub fail { 
     my $s = "@_\n";
+    $s =~ s/\n\n$/\n/;
     my $prefix = _us().": ";
     $s =~ s/^/$prefix/gm;
     die $s;