diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2010-11-02 20:19:25 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-11-02 21:32:34 -0700 |
| commit | bb16bae836f8e26795fbfac1361bf85da0d6a912 (patch) | |
| tree | b71601a317ae4fc0b2f334d106d4d7815a86e708 /ext/B/B.xs | |
| parent | 4eedab498fc909c786cceea9a6f3a70fa4433f9b (diff) | |
| download | perl-bb16bae836f8e26795fbfac1361bf85da0d6a912.tar.gz | |
y///r
Diffstat (limited to 'ext/B/B.xs')
| -rw-r--r-- | ext/B/B.xs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/B/B.xs b/ext/B/B.xs index b32816c15b..4651e468ba 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -1196,7 +1196,7 @@ PVOP_pv(o) * OP_TRANS uses op_pv to point to a table of 256 or >=258 shorts * whereas other PVOPs point to a null terminated string. */ - if (o->op_type == OP_TRANS && + if ((o->op_type == OP_TRANS || o->op_type == OP_TRANSR) && (o->op_private & OPpTRANS_COMPLEMENT) && !(o->op_private & OPpTRANS_DELETE)) { @@ -1204,7 +1204,7 @@ PVOP_pv(o) const short entries = 257 + tbl[256]; ST(0) = newSVpvn_flags(o->op_pv, entries * sizeof(short), SVs_TEMP); } - else if (o->op_type == OP_TRANS) { + else if (o->op_type == OP_TRANS || o->op_type == OP_TRANSR) { ST(0) = newSVpvn_flags(o->op_pv, 256 * sizeof(short), SVs_TEMP); } else |