swig/Examples/test-suite/perl5/disown_runme.pl
Marcelo Matus 1fa14f74a7 add disown.i and li_attribute.i
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7726 626c5289-ae23-0410-ae9c-e8d60b6d4f22
2005-10-26 07:08:18 +00:00

10 lines
112 B
Perl

use disown;
if (1) {
$a = new disown::A();
$b = new disown::B();
$c = $b->acquire($a);
}