Add the "TB ---" prefix to error and warning messages so that early

failures (e.g. failure to lock the sandbox) don't result in empty failure
reports.
This commit is contained in:
Dag-Erling Smørgrav 2003-10-14 20:01:58 +00:00
parent 929b31ddab
commit e89ab6e083
Notes: svn2git 2020-12-20 02:59:44 +00:00
svn path=/head/; revision=121094

View File

@ -72,7 +72,7 @@ sub message(@) {
sub warning(@) {
my $msg = join(' ', @_);
my $msg = join(' ', "TB ---", @_);
chomp($msg);
warn("$msg\n");
return undef;
@ -80,7 +80,7 @@ sub warning(@) {
sub error(@) {
my $msg = join(' ', "ERROR:", @_);
my $msg = join(' ', "TB ---", "ERROR:", @_);
chomp($msg);
die("$msg\n");
return undef;