diff options
| author | Hugo van der Sanden <hv@crypt.org> | 1999-03-28 05:51:34 +0100 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-06 03:19:16 +0000 |
| commit | ac2262e32f030fd3261b89c253e5e7274a51cc53 (patch) | |
| tree | 4e16886e561b6e8746f0373571e58c9eb5d01b36 /toke.c | |
| parent | 82092f1dcd6e496644fe74540fa706cb390be431 (diff) | |
| download | perl-ac2262e32f030fd3261b89c253e5e7274a51cc53.tar.gz | |
applied first part of suggested patch (bug described cannot be
reproduced any longer, so the second inconclusive part has not
been applied)
Message-Id: <199903280351.EAA20430@crypt.compulink.co.uk>
Subject: [PATCH 5.005_56] Re: A core dump
p4raw-id: //depot/perl@3308
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -928,10 +928,10 @@ scan_const(char *start) register char *d = SvPVX(sv); /* destination for copies */ bool dorange = FALSE; /* are we in a translit range? */ I32 len; /* ? */ - I32 utf = PL_lex_inwhat == OP_TRANS + I32 utf = (PL_lex_inwhat == OP_TRANS && PL_sublex_info.sub_op) ? (PL_sublex_info.sub_op->op_private & (OPpTRANS_FROM_UTF|OPpTRANS_TO_UTF)) : UTF; - I32 thisutf = PL_lex_inwhat == OP_TRANS + I32 thisutf = (PL_lex_inwhat == OP_TRANS && PL_sublex_info.sub_op) ? (PL_sublex_info.sub_op->op_private & (PL_lex_repl ? OPpTRANS_FROM_UTF : OPpTRANS_TO_UTF)) : UTF; |