diff options
| author | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-28 22:18:24 +0200 |
|---|---|---|
| committer | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-28 22:18:24 +0200 |
| commit | fd7590d71aeee380e7c87ed77de592df1f30f5ef (patch) | |
| tree | 16884f61fbf6b75246784f8209cfa08786157fd4 /Xerl/Base.pm | |
| parent | 340aa6d143806c2c800d0cb44e0e3ed5dd6e3a15 (diff) | |
Some small refactoring
Diffstat (limited to 'Xerl/Base.pm')
| -rw-r--r-- | Xerl/Base.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Xerl/Base.pm b/Xerl/Base.pm index 9bb3d7f..043487b 100644 --- a/Xerl/Base.pm +++ b/Xerl/Base.pm @@ -43,6 +43,7 @@ sub exists($$) { sub AUTOLOAD { my UNIVERSAL $self = $_[0]; my $auto = our $AUTOLOAD; + return $self if $auto =~ /DESTROY/; if ( $auto =~ /.*::set_(.+)$/ ) { |