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 */
dXSARGS;
char *file = __FILE__;
+ if( items > 0 )
+ Perl_croak(aTHX_ "Usage: bootstrap");
+
newXSproto("attributes::_warn_reserved", XS_attributes__warn_reserved, file, "");
newXS("attributes::_modify_attrs", XS_attributes__modify_attrs, file);
newXSproto("attributes::_guess_stash", XS_attributes__guess_stash, file, "$");
#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:
rv = ST(0);
ST(0) = TARG;
+ if (SvGMAGICAL(rv))
+ mg_get(rv);
if (!(SvOK(rv) && SvROK(rv)))
goto usage;
sv = SvRV(rv);