Skip to content

Commit

Permalink
replace B::COP::stashflags by B::COP::stashlen
Browse files Browse the repository at this point in the history
6379d4a (between 5.15.9 and 5.16.0) broke B::COP::stashflags which was added
in 5.15.4.
  • Loading branch information
Reini Urban authored and Father Chrysostomos committed May 22, 2012
1 parent 4f6289a commit 667d593
Show file tree
Hide file tree
Showing 2 changed files with 6 additions and 6 deletions.
4 changes: 2 additions & 2 deletions ext/B/B.pm
Expand Up @@ -15,7 +15,7 @@ require Exporter;
# walkoptree comes from B.xs

BEGIN {
$B::VERSION = '1.34';
$B::VERSION = '1.35';
@B::EXPORT_OK = ();

# Our BOOT code needs $VERSION set, and will append to @EXPORT_OK.
Expand Down Expand Up @@ -1211,7 +1211,7 @@ Only when perl was compiled with ithreads.
=item stashpv
=item stashflags
=item stashlen
=item file
Expand Down
8 changes: 4 additions & 4 deletions ext/B/B.xs
Expand Up @@ -1227,8 +1227,8 @@ 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)
#ifdef CopSTASH_len
#define COP_stashlen(o) CopSTASH_len(o)
#endif

MODULE = B PACKAGE = B::COP PREFIX = COP_
Expand All @@ -1253,10 +1253,10 @@ COP_stash(o)
PUSHs(make_sv_object(aTHX_
ix ? (SV *)CopFILEGV(o) : (SV *)CopSTASH(o)));

#ifdef CopSTASH_flags
#ifdef CopSTASH_len

U32
COP_stashflags(o)
COP_stashlen(o)
B::COP o

#endif
Expand Down

0 comments on commit 667d593

Please sign in to comment.