diff options
| author | Reini Urban <rurban@x-ray.at> | 2012-05-22 10:57:03 -0500 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-05-22 12:53:51 -0700 |
| commit | 667d5932a778569c5fd0522f87a993a17cffe7a3 (patch) | |
| tree | 24ca062dfa18f4a96e4b38f5c75fbb957c26ee0a /ext | |
| parent | 4f6289a38d7a3e247c83460e3fa5dc303511037f (diff) | |
| download | perl-667d5932a778569c5fd0522f87a993a17cffe7a3.tar.gz | |
replace B::COP::stashflags by B::COP::stashlen
6379d4a9a (between 5.15.9 and 5.16.0) broke B::COP::stashflags which was added
in 5.15.4.
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B.pm | 4 | ||||
| -rw-r--r-- | ext/B/B.xs | 8 |
2 files changed, 6 insertions, 6 deletions
diff --git a/ext/B/B.pm b/ext/B/B.pm index b19693cdbc..75ead53a15 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.34'; + $B::VERSION = '1.35'; @B::EXPORT_OK = (); # Our BOOT code needs $VERSION set, and will append to @EXPORT_OK. @@ -1211,7 +1211,7 @@ Only when perl was compiled with ithreads. =item stashpv -=item stashflags +=item stashlen =item file diff --git a/ext/B/B.xs b/ext/B/B.xs index 4a5ab44252..632c87451d 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -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_ @@ -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 |