diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-02-03 19:41:11 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-02-03 19:41:11 +0000 |
| commit | 59f00321bbc2d04656a65e0e9ccbbd93a8708e71 (patch) | |
| tree | c0f54dac647290fc40828259685a2859be908403 /toke.c | |
| parent | 81e59e001862de98bd8263eb307b4c909c0b16b8 (diff) | |
| download | perl-59f00321bbc2d04656a65e0e9ccbbd93a8708e71.tar.gz | |
Implement "my $_".
p4raw-id: //depot/perl@22263
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -6522,7 +6522,8 @@ S_scan_trans(pTHX_ char *start) New(803, tbl, complement&&!del?258:256, short); o = newPVOP(OP_TRANS, 0, (char*)tbl); - o->op_private = del|squash|complement| + o->op_private &= ~OPpTRANS_ALL; + o->op_private |= del|squash|complement| (DO_UTF8(PL_lex_stuff)? OPpTRANS_FROM_UTF : 0)| (DO_UTF8(PL_lex_repl) ? OPpTRANS_TO_UTF : 0); |