diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2007-01-08 00:06:44 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2007-01-08 00:06:44 +0000 |
| commit | ea71c68d4e9e9831b358b56d13355d1b70bedf90 (patch) | |
| tree | 673f05862db82c985d48f9c68c249be3ab6c7889 /toke.c | |
| parent | f8ec8cd2d5faa1409a6cf1952040da067208b229 (diff) | |
| download | perl-ea71c68d4e9e9831b358b56d13355d1b70bedf90.tar.gz | |
allocate op_pv strings from shared mem pool
p4raw-id: //depot/perl@29711
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -11008,7 +11008,7 @@ S_scan_trans(pTHX_ char *start) } no_more: - Newx(tbl, complement&&!del?258:256, short); + tbl = PerlMemShared_calloc(complement&&!del?258:256, sizeof(short)); o = newPVOP(OP_TRANS, 0, (char*)tbl); o->op_private &= ~OPpTRANS_ALL; o->op_private |= del|squash|complement| |