From 723cb9efcde090c8e8df39a43e02bfd3500c9989 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Thu, 12 Oct 2006 14:34:59 +0000 Subject: [PATCH 1/1] Pass $udata into callbacks. --- lib/ZOOM/IRSpy.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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) { -- 1.7.10.4