From 748a93069b3d16374a9859d1456065dd3ae11394 Mon Sep 17 00:00:00 2001
From: Larry Wall <lwall@netlabs.com>
Date: Sun, 12 Mar 1995 22:32:14 -0800
Subject: Perl 5.001

[See the Changes file for a list of changes]
---
 lib/AutoLoader.pm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'lib/AutoLoader.pm')

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 $@;
-- 
cgit v1.2.1