[Swig-cvs] SWIG/Source/Modules perl5.cxx,1.49,1.50

[Marcelo M. <mar...@us...>]

Update of /cvsroot/swig/SWIG/Source/Modules
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27867/Source/Modules

Modified Files:
	perl5.cxx 
Log Message:
fix varout typemaps for swigtypes

Index: perl5.cxx
===================================================================
RCS file: /cvsroot/swig/SWIG/Source/Modules/perl5.cxx,v
retrieving revision 1.49
retrieving revision 1.50
diff -C2 -d -r1.49 -r1.50
*** perl5.cxx	1 Feb 2006 08:37:52 -0000	1.49
--- perl5.cxx	2 Feb 2006 21:31:19 -0000	1.50
***************
*** 727,731 ****
  	   cleanup,
  	   "croak(Nullch);\n"
! 	   "XSRETURN(0); }\n"
  	   "}\n",
  	   NIL);
--- 727,731 ----
  	   cleanup,
  	   "croak(Nullch);\n"
! 	   "}\n"
  	   "}\n",
  	   NIL);
***************
*** 802,806 ****
     * variableWrapper()
     * ------------------------------------------------------------ */
- 
    virtual int variableWrapper(Node *n) {
      String *name  = Getattr(n,"name");
--- 802,805 ----
***************
*** 810,815 ****
      String  *tm;
  
!     String *set_name = Swig_name_set(iname);
!     String *val_name = Swig_name_get(iname);
  
      if (!addSymbol(iname,n)) return SWIG_ERROR;
--- 809,814 ----
      String  *tm;
  
!     String *set_name = Swig_name_wrapper(Swig_name_set(iname));
!     String *val_name = Swig_name_wrapper(Swig_name_get(iname));
  
      if (!addSymbol(iname,n)) return SWIG_ERROR;
***************
*** 854,858 ****
      int addfail = 0;
      if ((tm = Swig_typemap_lookup_new("varout",n,name,0))) {
-       SwigType *t = Getattr(n,"type");
        Replaceall(tm,"$target","sv");
        Replaceall(tm,"$result","sv");
--- 853,856 ----