Eviscerate README.macos to match the state of the world

[p5sagit/p5-mst-13.2.git] / ext / attributes / attributes.xs

diff --git a/ext/attributes/attributes.xs b/ext/attributes/attributes.xs
index dceef68..a199af6 100644 (file)
--- a/ext/attributes/attributes.xs
+++ b/ext/attributes/attributes.xs
@@ -68,31 +68,12 @@ modify_SV_attributes(pTHX_ SV *sv, SV **retlist, SV **attrlist, int numattrs)
            }
            break;
        default:
-           switch ((int)len) {
-           case 6:
-               switch (name[5]) {
-               case 'd':
-                   if (memEQ(name, "share", 5)) {
+           if (memEQs(name, 6, "shared")) {
                        if (negated)
                            Perl_croak(aTHX_ "A variable may not be unshared");
                        SvSHARE(sv);
                         continue;
-                    }
-                   break;
-               case 'e':
-                   if (memEQ(name, "uniqu", 5)) {
-                       if (isGV_with_GP(sv)) {
-                           if (negated) {
-                               GvUNIQUE_off(sv);
-                           } else {
-                               GvUNIQUE_on(sv);
-                           }
-                       }
-                       /* Hope this came from toke.c if not a GV. */
-                        continue;
-                    }
-                }
-            }
+           }
            break;
        }
        /* anything recognized had a 'continue' above */
@@ -127,6 +108,7 @@ usage:
 
 void
 _fetch_attrs(...)
+  PROTOTYPE: $
   PREINIT:
     SV *rv, *sv;
     cv_flags_t cvflags;
@@ -144,18 +126,10 @@ usage:
     switch (SvTYPE(sv)) {
     case SVt_PVCV:
        cvflags = CvFLAGS((const CV *)sv);
-       if (cvflags & CVf_LOCKED)
-           XPUSHs(newSVpvs_flags("locked", SVs_TEMP));
        if (cvflags & CVf_LVALUE)
            XPUSHs(newSVpvs_flags("lvalue", SVs_TEMP));
        if (cvflags & CVf_METHOD)
            XPUSHs(newSVpvs_flags("method", SVs_TEMP));
-        if (GvUNIQUE(CvGV((const CV *)sv)))
-           XPUSHs(newSVpvs_flags("unique", SVs_TEMP));
-       break;
-    case SVt_PVGV:
-       if (isGV_with_GP(sv) && GvUNIQUE(sv))
-           XPUSHs(newSVpvs_flags("unique", SVs_TEMP));
        break;
     default:
        break;
@@ -165,6 +139,7 @@ usage:
 
 void
 _guess_stash(...)
+  PROTOTYPE: $
   PREINIT:
     SV *rv, *sv;
     dXSTARG;
@@ -211,6 +186,7 @@ usage:
 
 void
 reftype(...)
+  PROTOTYPE: $
   PREINIT:
     SV *rv, *sv;
     dXSTARG;
@@ -238,4 +214,4 @@ usage:
  * End:
  *
  * ex: set ts=8 sts=4 sw=4 noet:
- */
\ No newline at end of file
+ */