From f7c82835986632a198baa52412be261e857ca75f Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Wed, 13 Sep 2006 16:29:55 +0000 Subject: [PATCH] Reorder --- lib/ZOOM/IRSpy/Test/Ping.pm | 4 ++-- lib/ZOOM/IRSpy/Test/Search/Title.pm | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/lib/ZOOM/IRSpy/Test/Ping.pm b/lib/ZOOM/IRSpy/Test/Ping.pm index e2c7665..f81aaaf 100644 --- a/lib/ZOOM/IRSpy/Test/Ping.pm +++ b/lib/ZOOM/IRSpy/Test/Ping.pm @@ -1,4 +1,4 @@ -# $Id: Ping.pm,v 1.10 2006-07-24 17:02:20 mike Exp $ +# $Id: Ping.pm,v 1.11 2006-09-13 16:29:55 mike Exp $ # See the "Main" test package for documentation @@ -32,9 +32,9 @@ sub not_connected { maybe_connected(@_, 0) } sub maybe_connected { my($conn, $irspy, $rs, $event, $ok) = @_; - my $rec = $irspy->record($conn); $irspy->log("irspy_test", $conn->option("host"), ($ok ? "" : " not"), " connected"); + my $rec = $irspy->record($conn); $rec->append_entry("irspy:status", "" . $irspy->isodate(time()) . ""); $conn->option(pod_omit => 1) if !$ok; diff --git a/lib/ZOOM/IRSpy/Test/Search/Title.pm b/lib/ZOOM/IRSpy/Test/Search/Title.pm index 019d098..2bf4f09 100644 --- a/lib/ZOOM/IRSpy/Test/Search/Title.pm +++ b/lib/ZOOM/IRSpy/Test/Search/Title.pm @@ -1,4 +1,4 @@ -# $Id: Title.pm,v 1.3 2006-07-24 17:02:51 mike Exp $ +# $Id: Title.pm,v 1.4 2006-09-13 16:30:27 mike Exp $ # See the "Main" test package for documentation @@ -30,10 +30,10 @@ sub run { sub found { my($conn, $irspy, $rs, $event) = @_; - my $rec = $irspy->record($conn); my $n = $rs->size(); $irspy->log("irspy_test", $conn->option("host"), " title search found $n record", $n==1 ? "" : "s"); + my $rec = $irspy->record($conn); $rec->append_entry("irspy:status", "" . $irspy->isodate(time()) . ""); return 0; -- 1.7.10.4