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

@@ -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
+