diff options
| -rw-r--r-- | Debian/Dgit.pm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm index d583417..3202180 100644 --- a/Debian/Dgit.pm +++ b/Debian/Dgit.pm @@ -44,7 +44,7 @@ BEGIN { server_branch server_ref stat_exists link_ltarget hashfile - fail ensuredir must_getcwd executable_on_path + fail failmsg ensuredir must_getcwd executable_on_path waitstatusmsg failedcmd_waitstatus failedcmd_report_cmd failedcmd runcmd cmdoutput cmdoutput_errok @@ -221,12 +221,16 @@ sub _us () { $::us // ($0 =~ m#[^/]*$#, $&); } -sub fail { +sub failmsg { my $s = "@_\n"; $s =~ s/\n\n$/\n/; my $prefix = _us().": "; $s =~ s/^/$prefix/gm; - die $s; + return $s; +} + +sub fail { + die failmsg @_; } sub ensuredir ($) { |