Patch for Event-0.86 (fwd)

Hi All,

The included patch resolves the following build error:

In file included from Event.xs:278:
c/var.c: In function `pe_var_start':
c/var.c:87: warning: assignment from incompatible pointer type
c/var.c:88: warning: assignment from incompatible pointer type

This was referenced in the following thread:

http://www.rosat.mpe-garching.mpg.de/mailing-lists/perl-loop/2002-12/msg00000.html

Enjoy!

-- 
Nick Eggleston
Consultant
Data Communications Consulting, Inc.
6320 Rucker Road, Suite E
Indianapolis, IN  46220
317/726-0295 x18
317/202-2445 (fax)

--- Event-0.86/c/var.c.0.86	2003-02-18 09:57:02.000000000 -0500
+++ Event-0.86/c/var.c	2003-02-18 09:57:41.000000000 -0500
@@ -47,9 +47,9 @@
     queueEvent((pe_event*) ev);
 }
 
-static I32 tracevar_r(IV ix, SV *sv)
+static I32 tracevar_r(pTHX_ IV ix, SV *sv)
 { pe_tracevar((pe_watcher *)ix, sv, PE_R); return 0; /*ignored*/ }
-static I32 tracevar_w(IV ix, SV *sv)
+static I32 tracevar_w(pTHX_ IV ix, SV *sv)
 { pe_tracevar((pe_watcher *)ix, sv, PE_W); return 0; /*ignored*/ }
 
 static char *pe_var_start(pe_watcher *_ev, int repeat) {