continue;
}
break;
+ case 's':
+ if (strEQ(name, "shared")) {
+ if (negated)
+ GvSHARED_off(CvGV((CV*)sv));
+ else
+ GvSHARED_on(CvGV((CV*)sv));
+ continue;
+ }
+ break;
}
break;
}
break;
default:
- /* nothing, yet */
+ switch ((int)len) {
+ case 6:
+ switch (*name) {
+ case 's':
+ if (strEQ(name, "shared")) {
+ /* toke.c has already marked as GvSHARED */
+ continue;
+ }
+ }
+ }
break;
}
/* anything recognized had a 'continue' above */
#endif
if (cvflags & CVf_METHOD)
XPUSHs(sv_2mortal(newSVpvn("method", 6)));
+ if (GvSHARED(CvGV((CV*)sv)))
+ XPUSHs(sv_2mortal(newSVpvn("shared", 6)));
break;
default:
break;
stash = CvSTASH(sv);
break;
case SVt_PVMG:
- if (!(SvFAKE(sv) && SvTIED_mg(sv, '*')))
+ if (!(SvFAKE(sv) && SvTIED_mg(sv, PERL_MAGIC_glob)))
break;
/*FALLTHROUGH*/
case SVt_PVGV: