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

prefer polymorphism on existing destructor over custom destructor method

Browse source
This commit is contained in:
Robert Stone 2013-11-14 07:29:28 -08:00
commit e0789366e7
3 changed files with 35 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Examples/test-suite/perl5/director_finalizer_runme.pl
View file

@ -7,8 +7,9 @@ require_ok('director_finalizer');
{
package MyFoo;
use base 'director_finalizer::Foo';
sub DIRECTOR_DESTROY { my($self) = @_;
$self->orStatus(2);
sub DESTROY { my($self, $final) = @_;
$self->orStatus(2) if $final;
shift->SUPER::DESTROY(@_);
}
}