From fd7590d71aeee380e7c87ed77de592df1f30f5ef Mon Sep 17 00:00:00 2001 From: "Paul Buetow (pluto.buetow.org)" Date: Sat, 28 Sep 2013 22:18:24 +0200 Subject: Some small refactoring --- Xerl/Base.pm | 1 + 1 file changed, 1 insertion(+) (limited to 'Xerl/Base.pm') 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_(.+)$/ ) { -- cgit v1.2.3