Allow "sub AUTOLOAD;" to stop AUTOLOAD inheritance,

from Graham Barr in the module list.

p4raw-id: //depot/perl@6444

1 files changed, 3 insertions, 0 deletions

diff --git a/gv.c b/gv.c
index f18f174d6e..22e419ec24 100644
--- 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.
      */