From 8e37a7bc710e1d41c41b00a7c7dd1a13df1bf085 Mon Sep 17 00:00:00 2001
From: Marcelo Matus <mmatus@acms.arizona.edu>
Date: Sun, 27 Nov 2005 02:13:49 +0000
Subject: [PATCH] fix kw in perl

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@7878 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 SWIG/Examples/test-suite/enum_thorough.i | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/SWIG/Examples/test-suite/enum_thorough.i b/SWIG/Examples/test-suite/enum_thorough.i
index cf3472a64..fb11ca668 100644
--- a/SWIG/Examples/test-suite/enum_thorough.i
+++ b/SWIG/Examples/test-suite/enum_thorough.i
@@ -481,7 +481,27 @@ struct Instances {
 %csconst(1);
 #endif
 
+#if defined(SWIGPERL)
 %inline %{
+
+namespace RepeatSpace {
+typedef enum
+{
+   one = 1,
+   initial = one,
+   two,
+   three,
+   llast = three,
+   end = llast
+} repeat;
+repeat repeatTest(repeat e) { return e; }
+}
+
+%}
+
+#else
+%inline %{
+
 namespace RepeatSpace {
 typedef enum
 {
@@ -498,3 +518,5 @@ repeat repeatTest(repeat e) { return e; }
 %}
 
 
+#endif
+