From e1f152104f833ce7dc54945ed39f7844ab81d9b5 Mon Sep 17 00:00:00 2001
From: William S Fulton <wsf@fultondesigns.co.uk>
Date: Fri, 10 Feb 2006 16:43:49 +0000
Subject: [PATCH] workaround global namespace pollution by older versions of
 perl

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

diff --git a/Examples/test-suite/enum_thorough.i b/Examples/test-suite/enum_thorough.i
index 0e271aa59..177dde680 100644
--- a/Examples/test-suite/enum_thorough.i
+++ b/Examples/test-suite/enum_thorough.i
@@ -239,17 +239,17 @@ TClass<int>::scientiststd3                  scientistsNameSpaceTestL(TClass<int>
 
 // %rename tests
 %rename(NewNameStruct) OldNameStruct;
-%rename(newname) oldname;
+%rename(newname) old_name;
 %rename(doublenamerenamed) doublename;
 %rename(simplerenamed) simple;
 %rename(singlenamerenamed) singlename;
 %rename(bang) OldNameStruct::kerboom;
 
 %inline %{
-enum oldname { argh, eek = -1 };
-typedef oldname oldnametd;
-oldname                             renameTest1(oldname e) { return e; }
-oldnametd                           renameTest2(oldnametd e) { return e; }
+enum old_name { argh, eek = -1 };
+typedef old_name old_nametd;
+old_name                            renameTest1(old_name e) { return e; }
+old_nametd                          renameTest2(old_nametd e) { return e; }
 
 struct OldNameStruct {
   enum enumeration {whizz, kerboom, pop};