Re: [ID 20000906.004] segfault with bad perl statement

Message-ID: <20000907204038.A15650@deep-dark-truthful-mirror.perlhacker.org>

p4raw-id: //depot/perl@7034

diff --git a/pp_hot.c b/pp_hot.c
index 4192f55..6f0fd7c 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2876,6 +2876,9 @@ S_method_common(pTHX_ SV* meth, U32* hashp)
     name = SvPV(meth, namelen);
     sv = *(PL_stack_base + TOPMARK + 1);
 
+    if (!sv)
+       Perl_croak(aTHX_ "Can't call method \"%s\" on an undefined value", name);
+
     if (SvGMAGICAL(sv))
         mg_get(sv);
     if (SvROK(sv))