From a662fabaaae2acec00a51079f73d5bf404d6b00a Mon Sep 17 00:00:00 2001
From: Mike Castle <dalgoda@ix.netcom.com>
Date: Fri, 2 Aug 2002 19:11:09 +0000
Subject: [PATCH] Compile fix for multi-threaded perl.

---
 programs/winetest/winetest.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/programs/winetest/winetest.c b/programs/winetest/winetest.c
index 04074e058af..3e9e6737036 100644
--- a/programs/winetest/winetest.c
+++ b/programs/winetest/winetest.c
@@ -152,7 +152,7 @@ unsigned long perl_call_wine
 
 
 /* perl extension initialisation */
-static void xs_init(void)
+static void xs_init(pTHX)
 {
     extern void boot_wine(CV *cv);
     newXS("wine::bootstrap", boot_wine,__FILE__);