Tweak

diff --git a/lib/ZOOM/IRSpy/Test/Ping.pm b/lib/ZOOM/IRSpy/Test/Ping.pm
index 590b94d..36b4b1f 100644 (file)
--- a/lib/ZOOM/IRSpy/Test/Ping.pm
+++ b/lib/ZOOM/IRSpy/Test/Ping.pm
@@ -1,4 +1,4 @@
-# $Id: Ping.pm,v 1.4 2006-06-21 16:26:29 mike Exp $
+# $Id: Ping.pm,v 1.5 2006-07-11 14:16:06 mike Exp $
 
 # See the "Main" test package for documentation
 
@@ -30,7 +30,7 @@ sub connected {
 
     my $rec = $irspy->record($conn);
     $irspy->log("irspy_test", $conn->option("host"), " connected");
-    ### Note the successful connection in $rec
+    ### At this point we should note the successful connection in $rec
     return 0;
 }
 

diff --git a/lib/ZOOM/IRSpy/Test/Search/Title.pm b/lib/ZOOM/IRSpy/Test/Search/Title.pm
index b531c8f..122b170 100644 (file)
--- 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.1 2006-06-21 16:27:01 mike Exp $
+# $Id: Title.pm,v 1.2 2006-07-11 14:16:35 mike Exp $
 
 # See the "Main" test package for documentation
 
@@ -33,7 +33,7 @@ sub found {
     my $n = $rs->size();
     $irspy->log("irspy_test", $conn->option("host"),
                " title search found $n record", $n==1 ? "" : "s");
-    ### Note the success or failure of the search in $rec
+    ### We should note the success or failure of the search in $rec
     return 0;
 }