[Swig-cvs] SWIG/Lib/perl5 perl5.swg,1.30,1.31

[William F. <wsf...@us...>]

Update of /cvsroot/swig/SWIG/Lib/perl5
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32712/Lib/perl5

Modified Files:
	perl5.swg 
Log Message:
SWIGTYPE out typemap fix - Perl should always take ownership of the memory

Index: perl5.swg
===================================================================
RCS file: /cvsroot/swig/SWIG/Lib/perl5/perl5.swg,v
retrieving revision 1.30
retrieving revision 1.31
diff -C2 -d -r1.30 -r1.31
*** perl5.swg	1 Feb 2005 00:08:16 -0000	1.30
--- perl5.swg	9 Mar 2005 22:31:55 -0000	1.31
***************
*** 149,153 ****
    $&1_ltype resultobj = new $1_ltype(($1_ltype &)$1);
    ST(argvi) = sv_newmortal();
!   SWIG_MakePtr(ST(argvi++), (void *) resultobj, $&1_descriptor, $shadow|$owner);
  }
  #else
--- 149,153 ----
    $&1_ltype resultobj = new $1_ltype(($1_ltype &)$1);
    ST(argvi) = sv_newmortal();
!   SWIG_MakePtr(ST(argvi++), (void *) resultobj, $&1_descriptor, $shadow|SWIG_OWNER);
  }
  #else
***************
*** 156,160 ****
    memmove(resultobj, &$1, sizeof($1_type));
    ST(argvi) = sv_newmortal();
!   SWIG_MakePtr(ST(argvi++), (void *) resultobj, $&1_descriptor, $shadow|$owner);
  }
  #endif
--- 156,160 ----
    memmove(resultobj, &$1, sizeof($1_type));
    ST(argvi) = sv_newmortal();
!   SWIG_MakePtr(ST(argvi++), (void *) resultobj, $&1_descriptor, $shadow|SWIG_OWNER);
  }
  #endif