diff --git a/util.c b/util.c index ce1666e..33f7bc1 100644 --- a/util.c +++ b/util.c @@ -3950,7 +3950,7 @@ Perl_grok_bslash_o(pTHX_ const char *s, UV *uv, STRLEN *len, const bool output_w * output_warning says whether to output any warning messages, or suppress * them */ - char* e; + const char* e; STRLEN numbers_len; I32 flags = PERL_SCAN_ALLOW_UNDERSCORES | PERL_SCAN_DISALLOW_PREFIXThread Previous | Thread Next