Attempt to fix core-specific logic in IPC::Open2 tests

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

diff --git a/ext/attributes/attributes.xs b/ext/attributes/attributes.xs
index 35ded7b..a199af6 100644 (file)
--- a/ext/attributes/attributes.xs
+++ b/ext/attributes/attributes.xs
@@ -54,15 +54,6 @@ modify_SV_attributes(pTHX_ SV *sv, SV **retlist, SV **attrlist, int numattrs)
                        continue;
                    }
                    break;
-               case 'k':
-                   if (memEQ(name, "locked", 6)) {
-                       if (negated)
-                           CvFLAGS(MUTABLE_CV(sv)) &= ~CVf_LOCKED;
-                       else
-                           CvFLAGS(MUTABLE_CV(sv)) |= CVf_LOCKED;
-                       continue;
-                   }
-                   break;
                case 'h':
                    if (memEQ(name, "method", 6)) {
                        if (negated)
@@ -77,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 */
@@ -136,6 +108,7 @@ usage:
 
 void
 _fetch_attrs(...)
+  PROTOTYPE: $
   PREINIT:
     SV *rv, *sv;
     cv_flags_t cvflags;
@@ -153,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;
@@ -174,6 +139,7 @@ usage:
 
 void
 _guess_stash(...)
+  PROTOTYPE: $
   PREINIT:
     SV *rv, *sv;
     dXSTARG;
@@ -220,6 +186,7 @@ usage:
 
 void
 reftype(...)
+  PROTOTYPE: $
   PREINIT:
     SV *rv, *sv;
     dXSTARG;
@@ -247,4 +214,4 @@ usage:
  * End:
  *
  * ex: set ts=8 sts=4 sw=4 noet:
- */
\ No newline at end of file
+ */