| Subject: | Support for 5.10 |
Attached patch supports all new 5.10 flags (checked until 5.11@33408)
I also prefixed the op want flags with "WANT_", to please the lazy eye.
--
Reini Urban
| Subject: | B-Flags-0.02.patch |
difforig
2008-03-02 Reini Urban <rurban@x-ray.at>
diff -ub ./Changes.orig
--- ./Changes.orig 2001-05-13 18:35:25.000000000 +0000
+++ ./Changes 2008-03-02 21:23:13.671875000 +0000
@@ -1,5 +1,9 @@
Revision history for Perl extension B::Flags.
+0.02 2008-03-02 22:11:08 rurban@cpan.org
+ - updates for 5.10 and 5.11@33408
+ - prefixed op want flags with "WANT_"
+
0.01 Sun May 13 19:35:25 2001
- original version; created by h2xs 1.20 with options
-A -n B::Flags
diff -ub ./Flags.pm.orig
--- ./Flags.pm.orig 2001-05-13 19:50:05.000000000 +0000
+++ ./Flags.pm 2008-03-02 21:08:27.328125000 +0000
@@ -9,7 +9,7 @@
require DynaLoader;
our @ISA = qw(DynaLoader);
-our $VERSION = '0.01';
+our $VERSION = '0.02';
bootstrap B::Flags $VERSION;
diff -ub ./Flags.xs.orig
--- ./Flags.xs.orig 2001-05-13 19:51:19.000000000 +0000
+++ ./Flags.xs 2008-03-02 21:53:18.625000000 +0000
@@ -14,16 +14,16 @@
RETVAL = newSVpvn("", 0);
switch (o->op_flags & OPf_WANT) {
case OPf_WANT_VOID:
- sv_catpv(RETVAL, ",VOID");
+ sv_catpv(RETVAL, ",WANT_VOID");
break;
case OPf_WANT_SCALAR:
- sv_catpv(RETVAL, ",SCALAR");
+ sv_catpv(RETVAL, ",WANT_SCALAR");
break;
case OPf_WANT_LIST:
- sv_catpv(RETVAL, ",LIST");
+ sv_catpv(RETVAL, ",WANT_LIST");
break;
default:
- sv_catpv(RETVAL, ",UNKNOWN");
+ sv_catpv(RETVAL, ",WANT_UNKNOWN");
break;
}
if (o->op_flags & OPf_KIDS)
@@ -55,6 +55,16 @@
sv_catpv(RETVAL, ",TARGET_MY");
#endif
}
+ if (o->op_type == OP_ENTERITER || o->op_type == OP_ITER) {
+#ifdef OPpITER_REVERSED
+ if (o->op_private & OPpITER_REVERSED)
+ sv_catpv(RETVAL, ",ITER_REVERSED");
+#endif
+#ifdef OPpITER_DEF
+ if (o->op_private & OPpITER_DEF)
+ sv_catpv(RETVAL, ",ITER_DEF");
+#endif
+ }
#ifdef OPpREFCOUNTED
else if (o->op_type == OP_LEAVESUB ||
o->op_type == OP_LEAVE ||
@@ -80,7 +90,22 @@
sv_catpv(RETVAL, ",BACKWARDS");
}
#endif
+#ifdef OPpRUNTIME
+ else if (o->op_type == OP_MATCH ||
+ o->op_type == OP_SUBST) {
+ if (o->op_private & OPpRUNTIME)
+ sv_catpv(RETVAL, ",RUNTIME");
+ }
+#endif
else if (o->op_type == OP_TRANS) {
+#ifdef OPpTRANS_FROM_UTF
+ if (o->op_private & OPpTRANS_FROM_UTF)
+ sv_catpv(RETVAL, ",FROM_UTF");
+#endif
+#ifdef OPpTRANS_TO_UTF
+ if (o->op_private & OPpTRANS_TO_UTF)
+ sv_catpv(RETVAL, ",TO_UTF");
+#endif
#ifdef OPpTRANS_SQUASH
if (o->op_private & OPpTRANS_SQUASH)
sv_catpv(RETVAL, ",SQUASH");
@@ -173,6 +198,14 @@
#endif
}
}
+#ifdef OPpPAD_STATE
+ else if ((o->op_type == OP_PADSV) && (o->op_private & OPpPAD_STATE))
+ sv_catpv(RETVAL, ",PAD_STATE");
+#endif
+#ifdef OPpDONT_INIT_GV
+ else if ((o->op_type == OP_RV2GV) && (o->op_private & OPpDONT_INIT_GV))
+ sv_catpv(RETVAL, ",DONT_INIT_GV");
+#endif
else if (o->op_type == OP_CONST) {
#ifdef OPpCONST_BARE
if (o->op_private & OPpCONST_BARE)
@@ -194,6 +227,14 @@
if (o->op_private & OPpCONST_ENTERED)
sv_catpv(RETVAL, ",ENTERED");
#endif
+#ifdef OPpCONST_NOVER
+ if (o->op_private & OPpCONST_NOVER)
+ sv_catpv(RETVAL, ",NOVER");
+#endif
+#ifdef OPpCONST_SHORTCIRCUIT
+ if (o->op_private & OPpCONST_SHORTCIRCUIT)
+ sv_catpv(RETVAL, ",SHORTCIRCUIT");
+#endif
}
#ifdef OPpFLIP_LINENUM
else if (o->op_type == OP_FLIP) {
@@ -205,12 +246,16 @@
sv_catpv(RETVAL, ",LINENUM");
}
#endif
-#ifdef OPpLVAL_INTRO
else if (o->op_type == OP_RV2CV) {
+#ifdef OPpLVAL_INTRO
if (o->op_private & OPpLVAL_INTRO)
sv_catpv(RETVAL, ",INTRO");
- }
#endif
+#ifdef OPpMAY_RETURN_CONSTANT
+ if (o->op_private & OPpMAY_RETURN_CONSTANT)
+ sv_catpv(RETVAL, ",MAY_RETURN_CONSTANT");
+#endif
+ }
#ifdef OPpEARLY_CV
else if (o->op_type == OP_GV) {
if (o->op_private & OPpEARLY_CV)
@@ -248,12 +293,31 @@
if (o->op_private & OPpSORT_REVERSE)
sv_catpv(RETVAL, ",REVERSE");
#endif
+#ifdef OPpSORT_INPLACE
+ if (o->op_private & OPpSORT_INPLACE)
+ sv_catpv(RETVAL, ",INPLACE");
+#endif
+#ifdef OPpSORT_DESCEND
+ if (o->op_private & OPpSORT_DESCEND)
+ sv_catpv(RETVAL, ",DESCEND");
+#endif
+#ifdef OPpSORT_QSORT
+ if (o->op_private & OPpSORT_QSORT)
+ sv_catpv(RETVAL, ",QSORT");
+#endif
+#ifdef OPpSORT_STABLE
+ if (o->op_private & OPpSORT_STABLE)
+ sv_catpv(RETVAL, ",STABLE");
+#endif
}
-#ifdef OPpDONE_SVREF
+#if defined(OPpDONE_SVREF) && (PERL_VERSION < 9)
else if (o->op_type == OP_THREADSV) {
if (o->op_private & OPpDONE_SVREF)
sv_catpv(RETVAL, ",SVREF");
}
+#elsif defined(OPpDONE_SVREF)
+ else if (o->op_private & OPpDONE_SVREF)
+ sv_catpv(RETVAL, ",SVREF");
#endif
else if (o->op_type == OP_OPEN || o->op_type == OP_BACKTICK) {
#ifdef OPpOPEN_IN_RAW
@@ -273,16 +337,47 @@
sv_catpv(RETVAL, ",OUT_CRLF");
#endif
}
-#ifdef OPpEXIT_VMSISH
else if (o->op_type == OP_EXIT) {
+#ifdef OPpEXIT_VMSISH
if (o->op_private & OPpEXIT_VMSISH)
sv_catpv(RETVAL, ",EXIST_VMSISH");
- }
#endif
+#ifdef OPpHUSH_VMSISH
+ if (o->op_private & OPpHUSH_VMSISH)
+ sv_catpv(RETVAL, ",HUSH_VMSISH");
+#endif
+ }
#ifdef OPpLVAL_INTRO
if (o->op_flags & OPf_MOD && o->op_private & OPpLVAL_INTRO)
sv_catpv(RETVAL, ",INTRO");
#endif
+#ifdef OP_IS_FILETEST_ACCESS
+ if (OP_IS_FILETEST_ACCESS(o)) {
+#ifdef OPpFT_ACCESS
+ if (o->op_private & OPpFT_ACCESS)
+ sv_catpv(RETVAL, ",FT_ACCESS");
+#endif
+#ifdef OPpFT_STACKED
+ if (o->op_private & OPpFT_STACKED)
+ sv_catpv(RETVAL, ",FT_STACKED");
+#endif
+ }
+#endif
+#ifdef OPpGREP_LEX
+ else if (o->op_type == OP_MAPSTART ||
+ o->op_type == OP_MAPWHILE ||
+ o->op_type == OP_GREPSTART ||
+ o->op_type == OP_GREPWHILE ) {
+ if (o->op_private & OPpGREP_LEX)
+ sv_catpv(RETVAL, ",GREP_LEX");
+ }
+#endif
+#ifdef OPpEVAL_HAS_HH
+ else if (o->op_type == OP_ENTEREVAL ) {
+ if (o->op_private & OPpEVAL_HAS_HH)
+ sv_catpv(RETVAL, ",EVAL_HAS_HH");
+ }
+#endif
if (SvCUR(RETVAL))
sv_chop(RETVAL, SvPVX(RETVAL)+1);
@@ -300,7 +395,12 @@
RETVAL = newSVpvn("", 0);
flags = SvFLAGS(sv);
type = SvTYPE(sv);
+#ifdef SVs_PADBUSY
if (flags & SVs_PADBUSY) sv_catpv(RETVAL, "PADBUSY,");
+#endif
+#ifdef SVs_PADSTALE
+ if (flags & SVs_PADSTALE) sv_catpv(RETVAL, "PADSTALE,");
+#endif
if (flags & SVs_PADTMP) sv_catpv(RETVAL, "PADTMP,");
if (flags & SVs_PADMY) sv_catpv(RETVAL, "PADMY,");
if (flags & SVs_TEMP) sv_catpv(RETVAL, "TEMP,");
@@ -319,7 +419,9 @@
if (flags & SVf_OOK) sv_catpv(RETVAL, "OOK,");
if (flags & SVf_FAKE) sv_catpv(RETVAL, "FAKE,");
if (flags & SVf_READONLY) sv_catpv(RETVAL, "READONLY,");
-
+#ifdef SVf_BREAK
+ if (flags & SVf_BREAK) sv_catpv(RETVAL, "BREAK,");
+#endif
if (flags & SVf_AMAGIC) sv_catpv(RETVAL, "OVERLOAD,");
if (flags & SVp_IOK) sv_catpv(RETVAL, "pIOK,");
if (flags & SVp_NOK) sv_catpv(RETVAL, "pNOK,");
@@ -345,6 +447,14 @@
if (HvSHAREKEYS(sv)) sv_catpv(RETVAL, "SHAREKEYS,");
if (HvLAZYDEL(sv)) sv_catpv(RETVAL, "LAZYDEL,");
break;
+ case SVt_PVAV:
+#ifdef SVpav_REAL
+ if (flags & SVpav_REAL) sv_catpv(RETVAL, "REAL,");
+#endif
+#ifdef SVpav_REIFY
+ if (flags & SVpav_REIFY) sv_catpv(RETVAL, "REIFY,");
+#endif
+ break;
case SVt_PVGV:
if (GvINTRO(sv)) sv_catpv(RETVAL, "INTRO,");
if (GvMULTI(sv)) sv_catpv(RETVAL, "MULTI,");