From 0662bb44e02ad3b15f165ed29bd373e4b11e42d2 Mon Sep 17 00:00:00 2001
From: Dave Beazley <dave-swig@dabeaz.com>
Date: Mon, 1 Sep 2003 18:13:33 +0000
Subject: [PATCH] Fixed [ 786394 ] Patch for generated perl code does not
 compile under RedHat9

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5055 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 SWIG/Lib/perl5/perlmain.i | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/SWIG/Lib/perl5/perlmain.i b/SWIG/Lib/perl5/perlmain.i
index b6f88b926..4b4bac7a6 100644
--- a/SWIG/Lib/perl5/perlmain.i
+++ b/SWIG/Lib/perl5/perlmain.i
@@ -24,7 +24,7 @@ library is C++ safe.
 
 %{
 
-static void xs_init _((void));
+static void xs_init _((pTHX));
 static PerlInterpreter *my_perl;
 
 int perl_eval(char *string) {
@@ -64,7 +64,7 @@ main(int argc, char **argv, char **env)
 /* EXTERN_C void boot_DynaLoader _((CV* cv)); */
 
 static void
-xs_init()
+xs_init(pTHX)
 {
 /*  dXSUB_SYS; */
     char *file = __FILE__;