From 16d7c98196d3b0e4e56dda6c0f272d96b83c4718 Mon Sep 17 00:00:00 2001
From: William S Fulton <wsf@fultondesigns.co.uk>
Date: Fri, 23 Sep 2005 21:20:58 +0000
Subject: [PATCH] Patch #1116431 Fix non member functions inadvertently being
 called instead of member functions.

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7500 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 Source/Modules/perl5.cxx | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/Source/Modules/perl5.cxx b/Source/Modules/perl5.cxx
index 466e021c5..7ff1cd921 100644
--- a/Source/Modules/perl5.cxx
+++ b/Source/Modules/perl5.cxx
@@ -1147,10 +1147,7 @@ public:
       /* If we are inheriting from a base class, set that up */
 
 
-      Printv(pm, "@ISA = qw( ", NIL);
-      if (!compat || Cmp(fullmodule, fullclassname)) {
-	Printv(pm, fullmodule, NIL);
-      }
+      Printv(pm, "@ISA = qw(", NIL);
 
       /* Handle inheritance */
       List *baselist = Getattr(n,"bases");
@@ -1167,6 +1164,12 @@ public:
 	  b = Next(b);
 	}
       }
+
+      /* Module comes last */
+      if (!compat || Cmp(fullmodule, fullclassname)) {
+        Printv(pm, " ", fullmodule, NIL);
+      }
+
       Printf(pm, " );\n");
 
       /* Dump out a hash table containing the pointers that we own */