Fix handling of piggybacking errors not to break on success!

diff --git a/lib/ZOOM/IRSpy/Test/Record/PiggyBack.pm b/lib/ZOOM/IRSpy/Test/Record/PiggyBack.pm
index 9b62142..47a3f08 100644 (file)
--- a/lib/ZOOM/IRSpy/Test/Record/PiggyBack.pm
+++ b/lib/ZOOM/IRSpy/Test/Record/PiggyBack.pm
@@ -44,7 +44,10 @@ sub start {
 sub completed_search {
     my($conn, $task, $udata, $event) = @_;
 
 sub completed_search {
     my($conn, $task, $udata, $event) = @_;
 

-    if ($event->isa("ZOOM::Exception") && $event->code() == 1005) {
+    # $event can be a ZOOM::Event::* number or a ZOOM::Exception object
+    if (ref $event &&
+       $event->isa("ZOOM::Exception") &&
+       $event->code() == 1005) {

        $conn->log("irspy_test", "Piggyback searching not supported");  
        $conn->record()->store_result('piggyback', 'ok' => 0);
        return ZOOM::IRSpy::Status::TEST_BAD;
        $conn->log("irspy_test", "Piggyback searching not supported");  
        $conn->record()->store_result('piggyback', 'ok' => 0);
        return ZOOM::IRSpy::Status::TEST_BAD;