return stash;
}
+/* FIXME. If changing this function note the comment in pp_hot's
+ S_method_common:
+
+ This code tries to figure out just what went wrong with
+ gv_fetchmethod. It therefore needs to duplicate a lot of
+ the internals of that function. ...
+
+ I'd guess that with one more flag bit that could all be moved inside
+ here.
+*/
+
GV *
Perl_gv_fetchmethod_autoload(pTHX_ HV *stash, const char *name, I32 autoload)
{
PUSHs(lr>0? left: right);
PUSHs( lr > 0 ? &PL_sv_yes : ( assign ? &PL_sv_undef : &PL_sv_no ));
if (notfound) {
- PUSHs( sv_2mortal(newSVpvn(AMG_id2name(method + assignshift),
- AMG_id2namelen(method + assignshift))));
+ PUSHs(newSVpvn_flags(AMG_id2name(method + assignshift),
+ AMG_id2namelen(method + assignshift), SVs_TEMP));
}
PUSHs((SV*)cv);
PUTBACK;