From 25e3e4dee8192a71159b39e812da5381c42524e9 Mon Sep 17 00:00:00 2001 From: Marcelo Matus Date: Tue, 25 Oct 2005 13:19:06 +0000 Subject: [PATCH] uniform the name_get/name_set names and fix for DISOWN git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7716 626c5289-ae23-0410-ae9c-e8d60b6d4f22 --- Source/Modules/perl5.cxx | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Source/Modules/perl5.cxx b/Source/Modules/perl5.cxx index f62bc77d7..dedd7a8b1 100644 --- a/Source/Modules/perl5.cxx +++ b/Source/Modules/perl5.cxx @@ -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",