From 1a4c5ca7fe06c3e6b864b45ea071d500753d3ab5 Mon Sep 17 00:00:00 2001 From: "Anders S. Mortensen" Date: Wed, 1 Nov 2006 09:56:50 +0000 Subject: [PATCH] Insert 0 instead of empty in case of failure. --- lib/ZOOM/IRSpy/Test/Record/Fetch.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/ZOOM/IRSpy/Test/Record/Fetch.pm b/lib/ZOOM/IRSpy/Test/Record/Fetch.pm index 6021ade..6ed0edb 100644 --- a/lib/ZOOM/IRSpy/Test/Record/Fetch.pm +++ b/lib/ZOOM/IRSpy/Test/Record/Fetch.pm @@ -1,4 +1,4 @@ -# $Id: Fetch.pm,v 1.11 2006-10-31 12:42:32 mike Exp $ +# $Id: Fetch.pm,v 1.12 2006-11-01 09:56:50 sondberg Exp $ # See the "Main" test package for documentation @@ -91,7 +91,7 @@ sub record { $conn->record()->store_result('record_fetch', 'syntax' => $syn, - 'ok' => defined $text); + 'ok' => defined $text ? 1 : 0); return ZOOM::IRSpy::Status::TASK_DONE; } -- 1.7.10.4