--- src/perl/irssi-perl.c.orig	Sat Sep  9 01:48:00 2000
+++ src/perl/irssi-perl.c	Sat Sep  9 01:47:49 2000
@@ -18,6 +18,8 @@
     Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 */
 
+#define PERL_POLLUTE
+
 #include <EXTERN.h>
 #ifndef _SEM_SEMUN_UNDEFINED
 #define HAS_UNION_SEMUN