complete s/foo/PL_foo/ changes (all escaped cases identified with

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

diff --git a/ext/attrs/attrs.xs b/ext/attrs/attrs.xs
index f34ac85..da952d5 100644 (file)
--- a/ext/attrs/attrs.xs
+++ b/ext/attrs/attrs.xs
@@ -3,8 +3,7 @@
 #include "XSUB.h"
 
 static cv_flags_t
-get_flag(attr)
-char *attr;
+get_flag(char *attr)
 {
     if (strnEQ(attr, "method", 6))
        return CVf_METHOD;
@@ -17,18 +16,18 @@ char *attr;
 MODULE = attrs         PACKAGE = attrs
 
 void
-import(class, ...)
-char * class
+import(Class, ...)
+char * Class
     ALIAS:
        unimport = 1
     PREINIT:
        int i;
        CV *cv;
     PPCODE:
-       if (!compcv || !(cv = CvOUTSIDE(compcv)))
+       if (!PL_compcv || !(cv = CvOUTSIDE(PL_compcv)))
            croak("can't set attributes outside a subroutine scope");
        for (i = 1; i < items; i++) {
-           char *attr = SvPV(ST(i), na);
+           char *attr = SvPV(ST(i), PL_na);
            cv_flags_t flag = get_flag(attr);
            if (!flag)
                croak("invalid attribute name %s", attr);
@@ -48,7 +47,7 @@ SV *  sub
                sub = Nullsv;
        }
        else {
-           char *name = SvPV(sub, na);
+           char *name = SvPV(sub, PL_na);
            sub = (SV*)perl_get_cv(name, FALSE);
        }
        if (!sub)