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 (file)
--- 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