Allow "sub AUTOLOAD;" to stop AUTOLOAD inheritance,

from Graham Barr in the module list.

p4raw-id: //depot/perl@6444

diff --git a/gv.c b/gv.c
index f18f174..22e419e 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -418,6 +418,9 @@ Perl_gv_autoload4(pTHX_ HV *stash, const char *name, STRLEN len, I32 method)
        return Nullgv;
     cv = GvCV(gv);
 
+    if (!CvROOT(cv))
+       return Nullgv;
+
     /*
      * Inheriting AUTOLOAD for non-methods works ... for now.
      */

diff --git a/pod/perlobj.pod b/pod/perlobj.pod
index 4e45aff..9a9bda9 100644 (file)
--- a/pod/perlobj.pod
+++ b/pod/perlobj.pod
@@ -168,6 +168,12 @@ the method that was intended to be called.
 
 If none of that works, Perl finally gives up and complains.
 
+If you want to stop the AUTOLOAD inheritance say simply
+
+       sub AUTOLOAD;
+
+and the call will die using the name of the sub being called.
+
 Perl classes do method inheritance only.  Data inheritance is left up
 to the class itself.  By and large, this is not a problem in Perl,
 because most classes model the attributes of their object using an