diff options
Diffstat (limited to 'lib/AutoLoader.pm')
| -rw-r--r-- | lib/AutoLoader.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/AutoLoader.pm b/lib/AutoLoader.pm index 3f5eef2375..92109a3681 100644 --- a/lib/AutoLoader.pm +++ b/lib/AutoLoader.pm @@ -14,6 +14,9 @@ AUTOLOAD { if ($name =~ s/(\w{12,})\.al$/substr($1,0,11).".al"/e){ eval {require $name}; } + elsif ($AUTOLOAD =~ /::DESTROY$/) { + eval "sub $AUTOLOAD {}"; + } if ($@){ $@ =~ s/ at .*\n//; croak $@; |