Set wrap:name for variables for use in special variable

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10270 626c5289-ae23-0410-ae9c-e8d60b6d4f22

1 files changed, 2 insertions, 0 deletions

diff --git a/Source/Modules/perl5.cxx b/Source/Modules/perl5.cxx
index 67192959b..7a057901d 100644
--- a/Source/Modules/perl5.cxx
+++ b/Source/Modules/perl5.cxx
@@ -782,6 +782,7 @@ public:
     /* Create a Perl function for setting the variable value */
 
     if (!GetFlag(n, "feature:immutable")) {
+      Setattr(n, "wrap:name", set_name);
       Printf(setf->def, "SWIGCLASS_STATIC int %s(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {\n", set_name);
       Printv(setf->code, tab4, "MAGIC_PPERL\n", NIL);
 
@@ -804,6 +805,7 @@ public:
     }
 
     /* Now write a function to evaluate the variable */
+    Setattr(n, "wrap:name", get_name);
     int addfail = 0;
     Printf(getf->def, "SWIGCLASS_STATIC int %s(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {\n", get_name);
     Printv(getf->code, tab4, "MAGIC_PPERL\n", NIL);