jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

uniform the name_get/name_set names and fix for DISOWN

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@7716 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Marcelo Matus 2005-10-25 13:19:06 +00:00
commit 7d6719b54d
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
SWIG/Source/Modules/perl5.cxx
View file

@ -794,8 +794,8 @@ public:
Wrapper *getf, *setf;
String *tm;
String *set_name = NewStringf("_wrap_set_%s", iname);
String *val_name = NewStringf("_wrap_val_%s", iname);
String *set_name = Swig_name_set(iname);
String *val_name = Swig_name_get(iname);
if (!addSymbol(iname,n)) return SWIG_ERROR;
@ -1380,7 +1380,7 @@ public:
tab4, "my $self = tied(%{$_[0]});\n",
tab4, "return unless defined $self;\n",
tab4, "delete $ITERATORS{$self};\n",
tab4, "if (exists $OWNER{$self}) {\n",
tab4, "if ((exists $OWNER{$self}) and ($OWNER{$self} == 1)) {\n",
tab8, cmodule, "::", Swig_name_destroy(symname), "($self);\n",
tab8, "delete $OWNER{$self};\n",
tab4, "}\n}\n\n",