From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 27 Jul 2000 14:50:47 +0000 (+0000)
Subject: Allow "no AutoLoader;", based on change #6444,
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cb0cff2080ef8ab655f0ad71ed1cfa42bbdd0709;p=p5sagit%2Fp5-mst-13.2.git

Allow "no AutoLoader;", based on change #6444,
suggested by Graham Barr.

p4raw-link: @6444 on //depot/perl: ed8504609e65bf608915df5053decb2c1e5c56e9

p4raw-id: //depot/perl@6456
---

diff --git a/lib/AutoLoader.pm b/lib/AutoLoader.pm
index 8fd7d3b..c26db72 100644
--- a/lib/AutoLoader.pm
+++ b/lib/AutoLoader.pm
@@ -140,6 +140,11 @@ sub import {
     } 
 }
 
+sub unimport {
+  my $callpkg = caller;
+  eval "package $callpkg; sub AUTOLOAD;";
+}
+
 1;
 
 __END__
@@ -259,6 +264,12 @@ the package namespace.  Variables pre-declared with this pragma will be
 visible to any autoloaded routines (but will not be invisible outside
 the package, unfortunately).
 
+=head2 Not Using AutoLoader
+
+You can stop using AutoLoader by simply
+
+	no AutoLoader;
+
 =head2 B<AutoLoader> vs. B<SelfLoader>
 
 The B<AutoLoader> is similar in purpose to B<SelfLoader>: both delay the