From f9c82b3138ddc687105b032a31fbd6199576f369 Mon Sep 17 00:00:00 2001
From: William S Fulton <wsf@fultondesigns.co.uk>
Date: Thu, 26 Aug 2004 21:16:19 +0000
Subject: [PATCH] added %perlcode directive, patch from Fabrice Salvaire

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@6157 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 SWIG/Lib/perl5/perl5.swg | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/SWIG/Lib/perl5/perl5.swg b/SWIG/Lib/perl5/perl5.swg
index 6d35e8bc4..97ea720cf 100644
--- a/SWIG/Lib/perl5/perl5.swg
+++ b/SWIG/Lib/perl5/perl5.swg
@@ -9,6 +9,8 @@
 %runtime "perlrun.swg"        // Perl runtime functions
 %runtime "noembed.h"          // undefine Perl5 macros
 
+#define %perlcode  %insert("perl")
+
 /* Typemaps for input parameters */
 
 %typemap(in)  int, short, long, signed char, bool, enum SWIGTYPE