workaround global namespace pollution by older versions of perl

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@8775 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2006-02-10 16:43:49 +00:00
commit c100210e27

View file

@ -239,17 +239,17 @@ TClass<int>::scientiststd3 scientistsNameSpaceTestL(TClass<int>
// %rename tests // %rename tests
%rename(NewNameStruct) OldNameStruct; %rename(NewNameStruct) OldNameStruct;
%rename(newname) oldname; %rename(newname) old_name;
%rename(doublenamerenamed) doublename; %rename(doublenamerenamed) doublename;
%rename(simplerenamed) simple; %rename(simplerenamed) simple;
%rename(singlenamerenamed) singlename; %rename(singlenamerenamed) singlename;
%rename(bang) OldNameStruct::kerboom; %rename(bang) OldNameStruct::kerboom;
%inline %{ %inline %{
enum oldname { argh, eek = -1 }; enum old_name { argh, eek = -1 };
typedef oldname oldnametd; typedef old_name old_nametd;
oldname renameTest1(oldname e) { return e; } old_name renameTest1(old_name e) { return e; }
oldnametd renameTest2(oldnametd e) { return e; } old_nametd renameTest2(old_nametd e) { return e; }
struct OldNameStruct { struct OldNameStruct {
enum enumeration {whizz, kerboom, pop}; enum enumeration {whizz, kerboom, pop};