diff options
author | Father Chrysostomos <sprout@cpan.org> | 2012-06-23 06:31:26 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2012-06-23 06:31:26 -0700 |
commit | ba1797af73d18f9a6390f5636513c68239d6123e (patch) | |
tree | c8574057c50e71fe14740c18d246289c0635ec0e | |
parent | cd3c16c1b1b71458dd13d5eaf8f9ad68b7b0528d (diff) | |
download | perl-ba1797af73d18f9a6390f5636513c68239d6123e.tar.gz |
Revert "replace B::COP::stashflags by B::COP::stashlen"
This reverts commit bbf5974c677f8f57671e2b54c2e756597ead21f9.
-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 75ead53a15..b19693cdbc 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.35'; + $B::VERSION = '1.34'; @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 stashlen +=item stashflags =item file diff --git a/ext/B/B.xs b/ext/B/B.xs index 632c87451d..4a5ab44252 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_len -#define COP_stashlen(o) CopSTASH_len(o) +#ifdef CopSTASH_flags +#define COP_stashflags(o) CopSTASH_flags(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_len +#ifdef CopSTASH_flags U32 -COP_stashlen(o) +COP_stashflags(o) B::COP o #endif |