From 4803538e394d7544849f929a938af6a3b3247cc7 Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Tue, 20 Feb 2001 00:48:30 +0000
Subject: [PATCH] my_perl fix

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1264 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 src/perl/xsinit.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/perl/xsinit.c b/src/perl/xsinit.c
index 426e6efe..fd8b923a 100644
--- a/src/perl/xsinit.c
+++ b/src/perl/xsinit.c
@@ -8,7 +8,6 @@ extern "C" {
 
 #include <EXTERN.h>
 #include <perl.h>
-#include "perl-common.h"
 #ifdef PERL_OBJECT
 #define NO_XSLOCKS
 #include <XSUB.h>
@@ -27,6 +26,8 @@ extern "C" {
 #  endif
 #endif
 
+extern PerlInterpreter *my_perl;
+
 EXTERN_C void xs_init _((void));
 
 EXTERN_C void boot_DynaLoader _((CV* cv));