In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/e8acd6c51420b5d9471bf4a2e80536839f244f3a?hp=9e1c556683b2bf04685b75340e523e781a2342ec>
- Log ----------------------------------------------------------------- commit e8acd6c51420b5d9471bf4a2e80536839f244f3a Author: Father Chrysostomos <[email protected]> Date: Mon Jan 23 18:13:55 2012 -0800 Increase $B::VERSION to 1.34 M ext/B/B.pm commit 7a168a410cb692bd26a3cf7946c99721473a920b Author: Reini Urban <[email protected]> Date: Mon Jan 23 12:52:02 2012 -0600 B.xs add missing B::COP::stashflags Threaded perl added this field with 5.15.4 for utf8 stashes. M ext/B/B.xs commit 675dc5e1a2e4e6d093c418574ed9eda79796088e Author: Reini Urban <[email protected]> Date: Mon Jan 23 12:10:05 2012 -0600 B.pm POD: revise 44f7f2d5b1 on IoFLAGS IoFLAGS are not defined in perliol.h M ext/B/B.pm ----------------------------------------------------------------------- Summary of changes: ext/B/B.pm | 4 +--- ext/B/B.xs | 11 +++++++++++ 2 files changed, 12 insertions(+), 3 deletions(-) diff --git a/ext/B/B.pm b/ext/B/B.pm index 187089b..1980331 100644 --- a/ext/B/B.pm +++ b/ext/B/B.pm @@ -15,7 +15,7 @@ require Exporter; # walkoptree comes from B.xs BEGIN { - $B::VERSION = '1.33'; + $B::VERSION = '1.34'; @B::EXPORT_OK = (); # Our BOOT code needs $VERSION set, and will append to @EXPORT_OK. @@ -945,8 +945,6 @@ A character symbolizing the type of IO Handle. =item IoFLAGS -See F<perliol.h>. - =item IsSTD Takes one argument ( 'stdin' | 'stdout' | 'stderr' ) and returns true diff --git a/ext/B/B.xs b/ext/B/B.xs index 1901edd..8a7cbff 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -1229,6 +1229,9 @@ pv(o) ST(0) = newSVpvn_flags(o->op_pv, strlen(o->op_pv), SVs_TEMP); #define COP_label(o) CopLABEL(o) +#ifdef CopSTASH_flags +#define COP_stashflags(o) CopSTASH_flags(o) +#endif MODULE = B PACKAGE = B::COP PREFIX = COP_ @@ -1252,6 +1255,14 @@ COP_stash(o) PUSHs(make_sv_object(aTHX_ ix ? (SV *)CopFILEGV(o) : (SV *)CopSTASH(o))); +#ifdef CopSTASH_flags + +U32 +COP_stashflags(o) + B::COP o + +#endif + #else char * -- Perl5 Master Repository
