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 7a86cd7..a199af6 100644 (file)
--- a/ext/attributes/attributes.xs
+++ b/ext/attributes/attributes.xs
@@ -108,6 +108,7 @@ usage:
 
 void
 _fetch_attrs(...)
+  PROTOTYPE: $
   PREINIT:
     SV *rv, *sv;
     cv_flags_t cvflags;
@@ -125,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;
@@ -146,6 +139,7 @@ usage:
 
 void
 _guess_stash(...)
+  PROTOTYPE: $
   PREINIT:
     SV *rv, *sv;
     dXSTARG;
@@ -192,6 +186,7 @@ usage:
 
 void
 reftype(...)
+  PROTOTYPE: $
   PREINIT:
     SV *rv, *sv;
     dXSTARG;