From 337d34fe54273bb751eb2d2efb4cd52f631f191e Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Wed, 16 Aug 2000 00:20:05 +0000
Subject: [PATCH] Fixes to make irssi work with other (older and newer) perl
 versions than 5.005

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

diff --git a/src/perl/irssi-perl.c b/src/perl/irssi-perl.c
index 6c060efd..158b4a8c 100644
--- a/src/perl/irssi-perl.c
+++ b/src/perl/irssi-perl.c
@@ -33,6 +33,15 @@
 #include "commands.h"
 #include "misc.h"
 
+/* For compatibility with perl 5.004 and older */
+#ifndef ERRSV
+#  define ERRSV GvSV(errgv)
+#endif
+
+#ifndef PL_perl_destruct_level
+#  define PL_perl_destruct_level perl_destruct_level
+#endif
+
 extern void xs_init(void);
 
 typedef struct {
@@ -664,7 +673,7 @@ void irssi_perl_init(void)
 	command_bind("perlflush", NULL, (SIGNAL_FUNC) cmd_perlflush);
 	signal_grabbed = siglast_grabbed = FALSE;
 
-        perl_destruct_level = 1;
+        PL_perl_destruct_level = 1;
 	irssi_perl_start();
 	irssi_perl_autorun();
 }