From dc2a4c620e6b82f59afd770b1441f299f8ba8bbe Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Sun, 22 Sep 2002 15:53:39 +0000
Subject: [PATCH] define empty aTHX_ too if it's not defined

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

diff --git a/src/perl/perl-common.h b/src/perl/perl-common.h
index 50469942..cef0036f 100644
--- a/src/perl/perl-common.h
+++ b/src/perl/perl-common.h
@@ -36,6 +36,10 @@ extern STRLEN PL_na;
 #  define pTHX_
 #endif
 
+#ifndef aTHX_
+#  define aTHX_
+#endif
+
 #define iobject_bless(object) \
 	((object) == NULL ? &PL_sv_undef : \
 	irssi_bless_iobject((object)->type, (object)->chat_type, object))