From: Mike Taylor <mike@indexdata.com>
Date: Thu, 12 Oct 2006 14:34:59 +0000 (+0000)
Subject: Pass $udata into callbacks.
X-Git-Tag: CPAN-v1.02~983
X-Git-Url: http://lists.indexdata.com/cgi-bin?a=commitdiff_plain;h=94abd87a654f464e81404f030983b08a0c84eb22;p=irspy-moved-to-github.git

Pass $udata into callbacks.
---

diff --git a/lib/ZOOM/IRSpy.pm b/lib/ZOOM/IRSpy.pm
index 64c1d4d..1abb785 100644
--- a/lib/ZOOM/IRSpy.pm
+++ b/lib/ZOOM/IRSpy.pm
@@ -1,4 +1,4 @@
-# $Id: IRSpy.pm,v 1.26 2006-10-12 11:06:03 mike Exp $
+# $Id: IRSpy.pm,v 1.27 2006-10-12 14:34:59 mike Exp $
 
 package ZOOM::IRSpy;
 
@@ -367,7 +367,7 @@ sub check {
 	if ($@) {
 	    my $sub = $task->{cb}->{exception};
 	    die $@ if !defined $sub;
-	    $res = &$sub($conn, $task, $@);
+	    $res = &$sub($conn, $task, $task->udata(), $@);
 	} else {
 	    my $sub = $task->{cb}->{$ev};
 	    if (!defined $sub) {
@@ -375,7 +375,7 @@ sub check {
 		next;
 	    }
 
-	    $res = &$sub($conn, $task, $ev);
+	    $res = &$sub($conn, $task, $task->udata(), $ev);
 	}
 
 	if ($res == ZOOM::IRSpy::Status::OK) {