From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 6 Oct 2006 18:05:45 +0000 (+0000)
Subject: Don't bother generating the "Operation \"%s\": no method found..."
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4cc0ca1820795147dd27e5805c8227de0ebaace3;p=p5sagit%2Fp5-mst-13.2.git

Don't bother generating the "Operation \"%s\": no method found..."
message text if we're not going to use it.

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

diff --git a/gv.c b/gv.c
index 0fc0367..637e82f 100644
--- a/gv.c
+++ b/gv.c
@@ -1829,6 +1829,9 @@ Perl_amagic_call(pTHX_ SV *left, SV *right, int method, int flags)
 	notfound = 1; lr = -1;
       } else if (cvp && (cv=cvp[nomethod_amg])) {
 	notfound = 1; lr = 1;
+      } else if ((amtp && amtp->fallback >= AMGfallYES) && !DEBUG_o_TEST) {
+	/* Skip generating the "no method found" message.  */
+	return NULL;
       } else {
 	SV *msg;
 	if (off==-1) off=method;