diff options
author | Tony Cook <tony@develop-help.com> | 2020-04-06 11:59:52 +1000 |
---|---|---|
committer | Sawyer X <xsawyerx@cpan.org> | 2020-05-21 00:46:06 +0300 |
commit | 759a2998e5f3ea113e277a7a86d00124cd68d16f (patch) | |
tree | 6877bddc88916e1520f590dddc30d156ef3bc42e | |
parent | 7bd5771a1dd1d440538f9681e7ab92d29f73bb2a (diff) | |
download | perl-759a2998e5f3ea113e277a7a86d00124cd68d16f.tar.gz |
removed unused len parameter from yyl_dblquote()
The len variable is used, but the value is overwritten before being
read.
-rw-r--r-- | toke.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -6594,9 +6594,10 @@ yyl_sglquote(pTHX_ char *s) } static int -yyl_dblquote(pTHX_ char *s, STRLEN len) +yyl_dblquote(pTHX_ char *s) { char *d; + STRLEN len; s = scan_str(s,FALSE,FALSE,FALSE,NULL); DEBUG_T( { if (s) @@ -9021,7 +9022,7 @@ yyl_try(pTHX_ char *s, STRLEN len) return yyl_sglquote(aTHX_ s); case '"': - return yyl_dblquote(aTHX_ s, len); + return yyl_dblquote(aTHX_ s); case '`': return yyl_backtick(aTHX_ s); |