This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
toke.c: fix mswin32 builds
authorDavid Mitchell <davem@iabyn.com>
Mon, 5 Sep 2016 14:49:28 +0000 (15:49 +0100)
committerDavid Mitchell <davem@iabyn.com>
Mon, 5 Sep 2016 14:49:28 +0000 (15:49 +0100)
commit0af40c757f083cc12988effb46da5313cd042f00
treec2f1cea43d69bb52c09d93e0646c50a082245584
parent097f20eca6789e9416aedff17ae062386d3c2d98
toke.c: fix mswin32 builds

9bde56224 added this as part of macro:

- PL_last_lop_op = f; \
+ PL_last_lop_op = f < 0 ? -f : f; \

which broke win32 builds due to this

    UNIBRACK(-OP_ENTEREVAL)

expanding to

    PL_last_lop_op = -345 < 0 ? --345 : -345

and the -- being seen as a pre-dec op.

Diagnosed by Dagfinn Ilmari MannsÃ¥ker.
toke.c