This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Implement use attrs qw(locked package);
[perl5.git]
/
ext
/
attrs
/
attrs.xs
diff --git
a/ext/attrs/attrs.xs
b/ext/attrs/attrs.xs
index
dae612a
..
2de522a
100644
(file)
--- a/
ext/attrs/attrs.xs
+++ b/
ext/attrs/attrs.xs
@@
-9,6
+9,8
@@
get_flag(char *attr)
return CVf_METHOD;
else if (strnEQ(attr, "locked", 6))
return CVf_LOCKED;
return CVf_METHOD;
else if (strnEQ(attr, "locked", 6))
return CVf_LOCKED;
+ else if (strnEQ(attr, "package", 7))
+ return CVf_PACKAGE;
else
return 0;
}
else
return 0;
}
@@
-56,4
+58,6
@@
SV * sub
XPUSHs(sv_2mortal(newSVpv("method", 0)));
if (CvFLAGS(sub) & CVf_LOCKED)
XPUSHs(sv_2mortal(newSVpv("locked", 0)));
XPUSHs(sv_2mortal(newSVpv("method", 0)));
if (CvFLAGS(sub) & CVf_LOCKED)
XPUSHs(sv_2mortal(newSVpv("locked", 0)));
+ if (CvFLAGS(sub) & CVf_PACKAGE)
+ XPUSHs(sv_2mortal(newSVpv("package", 0)));