chiark / gitweb /
Make fail() cope with multi-line messages
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 15 Nov 2014 18:21:12 +0000 (18:21 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 15 Nov 2014 18:22:45 +0000 (18:22 +0000)
dgit

diff --git a/dgit b/dgit
index 5c8d24a..2056818 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -163,7 +163,10 @@ sub waitstatusmsg () {
 sub printdebug { print DEBUG $debugprefix, @_ or die $!; }
 
 sub fail { 
-    die $us.($we_are_responder ? " (build host)" : "").": @_\n";
+    my $s = "@_\n";
+    my $prefix = $us.($we_are_responder ? " (build host)" : "").": ";
+    $s =~ s/^/$prefix/gm;
+    die $s;
 }
 
 sub badcfg { print STDERR "$us: invalid configuration: @_\n"; exit 12; }