From 0d7e4c1f54979c6e03f36e7dd0a16f4ac946d24f Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Mon, 15 Jan 2001 01:04:30 +0000
Subject: [PATCH] Added #define PL_sv_undef sv_undef for 5.004 compatibility

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1119 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 src/perl/perl-common.h | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/perl/perl-common.h b/src/perl/perl-common.h
index d8774090..e6519681 100644
--- a/src/perl/perl-common.h
+++ b/src/perl/perl-common.h
@@ -27,6 +27,11 @@ typedef struct {
 /* returns the package who called us */
 char *perl_get_package(void);
 
+/* For compatibility with perl 5.004 and older */
+#ifndef HAVE_PL_PERL
+#  define PL_sv_undef sv_undef
+#endif
+
 #define irssi_bless(object) \
 	((object) == NULL ? &PL_sv_undef : \
 	irssi_bless_iobject((object)->type, (object)->chat_type, object))