This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fixup to 'change LABEL type from pval to opval'
authorDavid Mitchell <davem@iabyn.com>
Fri, 5 Apr 2019 16:01:53 +0000 (17:01 +0100)
committerDavid Mitchell <davem@iabyn.com>
Fri, 5 Apr 2019 16:01:53 +0000 (17:01 +0100)
Commit v5.29.9-68-g017192018b broke g++ builds. Spotted by Karl.

toke.c

diff --git a/toke.c b/toke.c
index 0273566..30bdf32 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -7192,7 +7192,7 @@ Perl_yylex(pTHX)
        if (!anydelim && PL_expect == XSTATE
              && d < PL_bufend && *d == ':' && *(d + 1) != ':') {
            s = d + 1;
-            pl_yylval.pval =
+            pl_yylval.opval =
                 newSVOP(OP_CONST, 0,
                     newSVpvn_flags(PL_tokenbuf, len, UTF ? SVf_UTF8 : 0));
            CLINE;