Skip Menu |
 

This queue is for tickets about the B-Flags CPAN distribution.

Report information
The Basics
Id: 33759
Status: resolved
Priority: 0/
Queue: B-Flags

People
Owner: Nobody in particular
Requestors: RURBAN [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Critical
Broken in: 0.01
Fixed in: (no value)



Subject: Support for 5.10
Download (untitled) / with headers
text/plain 159b
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
Download B-Flags-0.02.patch
text/x-diff 8.2k
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,");
From: RURBAN [...] cpan.org
Download (untitled) / with headers
text/plain 301b
On Sun Mar 02 16:59:54 2008, RURBAN wrote: Show quoted text
> 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.
Simon, Andy, 3 months no reaction. Can I have at least co-maint to fix B::Flags by myself? -- Reini Urban
Fixed with 0.02 2008-03-02 22:11:08 -- Reini Urban


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.