projects
/
irspy-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
c562da3
)
Fix handling of piggybacking errors not to break on success!
author
Mike Taylor
<mike@indexdata.com>
Wed, 19 Dec 2012 12:07:35 +0000
(12:07 +0000)
committer
Mike Taylor
<mike@indexdata.com>
Wed, 19 Dec 2012 12:07:35 +0000
(12:07 +0000)
lib/ZOOM/IRSpy/Test/Record/PiggyBack.pm
patch
|
blob
|
history
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) = @_;
- 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;