diff options
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 16 |
1 files changed, 9 insertions, 7 deletions
@@ -997,10 +997,10 @@ HV* stash; if ( cp = (char *)AMG_names[0] ) { /* Try to find via inheritance. */ - gv = gv_fetchmeth(stash, "()", 2, -1); /* A cooky: "()". */ + gv = gv_fetchmeth(stash, "()", 2, -1); /* A cookie: "()". */ if (gv) sv = GvSV(gv); - if (!gv) goto notable; + if (!gv) goto no_table; else if (SvTRUE(sv)) amt.fallback=AMGfallYES; else if (SvOK(sv)) amt.fallback=AMGfallNEVER; } @@ -1009,7 +1009,7 @@ HV* stash; cv = 0; cp = (char *)AMG_names[i]; - *buf = '('; /* A cooky: "(". */ + *buf = '('; /* A cookie: "(". */ strcpy(buf + 1, cp); DEBUG_o( deb("Checking overloading of `%s' in package `%.256s'\n", cp, HvNAME(stash)) ); @@ -1057,7 +1057,7 @@ HV* stash; } } /* Here we have no table: */ - notable: + no_table: AMT_AMAGIC_off(&amt); sv_magic((SV*)stash, 0, 'c', (char*)&amt, sizeof(AMTS)); return FALSE; @@ -1222,8 +1222,9 @@ int flags; } else if (cvp && (cv=cvp[nomethod_amg])) { notfound = 1; lr = 1; } else { - if (off==-1) off=method; - sprintf(buf, "Operation `%s': no method found,%sargument %s%.256s%s%.256s", + if (off==-1) off=method; + sprintf(buf, + "Operation `%s': no method found,%sargument %s%.256s%s%.256s", AMG_names[method + assignshift], (flags & AMGf_unary ? " " : "\n\tleft "), SvAMAGIC(left)? @@ -1250,7 +1251,8 @@ int flags; } } if (!notfound) { - DEBUG_o( deb("Overloaded operator `%s'%s%s%s:\n\tmethod%s found%s in package %.256s%s\n", + DEBUG_o( deb( + "Overloaded operator `%s'%s%s%s:\n\tmethod%s found%s in package %.256s%s\n", AMG_names[off], method+assignshift==off? "" : " (initially `", |