- my($conn, $irspy, $rs, $event, $ok) = @_;
-
- my $rec = $irspy->record($conn);
- $irspy->log("irspy_test", $conn->option("host"),
- ($ok ? "" : " not"), " connected");
- $conn->option(pod_omit => 1) if !$ok;
+ my($conn, $task, $__UNUSED_udata, $event, $ok) = @_;