X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=lib%2FZOOM%2FIRSpy%2FTest%2FRecord%2FPiggyBack.pm;fp=lib%2FZOOM%2FIRSpy%2FTest%2FRecord%2FPiggyBack.pm;h=47a3f08e9d63ac2ed3317992c57a6b862861861c;hp=9b62142b85affdd81cfb2846336549e39717e9d5;hb=b232d3d162162349b89a9c98c94e60e2bd98e678;hpb=c562da398aee0aeb61cb563533492fd29d973dc2

diff --git a/lib/ZOOM/IRSpy/Test/Record/PiggyBack.pm b/lib/ZOOM/IRSpy/Test/Record/PiggyBack.pm
index 9b62142..47a3f08 100644
--- 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) = @_;
 
-    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;