From d4a2e90579d25a8fbd42573ec69ffdfbcf1d015e Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Wed, 28 Feb 2007 17:32:48 +0000 Subject: [PATCH] Test is BAD if database is unavailable. --- lib/ZOOM/IRSpy/Test/Search/Bib1.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lib/ZOOM/IRSpy/Test/Search/Bib1.pm b/lib/ZOOM/IRSpy/Test/Search/Bib1.pm index dc1fb0a..4628f14 100644 --- a/lib/ZOOM/IRSpy/Test/Search/Bib1.pm +++ b/lib/ZOOM/IRSpy/Test/Search/Bib1.pm @@ -1,4 +1,4 @@ -# $Id: Bib1.pm,v 1.16 2007-02-26 17:32:13 mike Exp $ +# $Id: Bib1.pm,v 1.17 2007-02-28 17:32:48 mike Exp $ # See the "Main" test package for documentation @@ -52,7 +52,8 @@ sub error { update($conn, $attr, 0); return ZOOM::IRSpy::Status::TEST_BAD - if $exception->code() == 1; # permanent system error + if ($exception->code() == 1 || # permanent system error + $exception->code() == 109); # Database unavailable return ZOOM::IRSpy::Status::TASK_DONE; } -- 1.7.10.4