From 049ae4ae5d0367485910064f62b1baf38fdaad04 Mon Sep 17 00:00:00 2001 From: Max Kanat-Alexander Date: Mon, 19 Apr 2010 16:21:58 -0700 Subject: Bug 560284: Make all errors that checksetup.pl throws be red r=mkanat, a=mkanat (module owner) --- Bugzilla/Install/DB.pm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'Bugzilla/Install/DB.pm') diff --git a/Bugzilla/Install/DB.pm b/Bugzilla/Install/DB.pm index 81372da71..aa71c7d0a 100644 --- a/Bugzilla/Install/DB.pm +++ b/Bugzilla/Install/DB.pm @@ -3080,11 +3080,11 @@ sub _check_content_length { WHERE CHAR_LENGTH($field_name) > ?", {Columns=>[1,2]}, $max_length) }; if (scalar keys %contents) { - print install_string('install_data_too_long', - { column => $field_name, - id_column => $id_field, - table => $table_name, - max_length => $max_length }); + my $error = install_string('install_data_too_long', + { column => $field_name, + id_column => $id_field, + table => $table_name, + max_length => $max_length }); foreach my $id (keys %contents) { my $string = $contents{$id}; # Don't dump the whole string--it could be 16MB. @@ -3092,9 +3092,9 @@ sub _check_content_length { $string = substr($string, 0, 30) . "..." . substr($string, -30) . "\n"; } - print "$id: $string\n"; + $error .= "$id: $string\n"; } - exit 3; + die $error; } } -- cgit v1.2.3-24-g4f1b