summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTony Cook <tony@develop-help.com>2020-04-06 11:59:52 +1000
committerSawyer X <xsawyerx@cpan.org>2020-05-21 00:46:06 +0300
commit759a2998e5f3ea113e277a7a86d00124cd68d16f (patch)
tree6877bddc88916e1520f590dddc30d156ef3bc42e
parent7bd5771a1dd1d440538f9681e7ab92d29f73bb2a (diff)
downloadperl-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.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/toke.c b/toke.c
index f03c827305..0f49a8c4ae 100644
--- a/toke.c
+++ b/toke.c
@@ -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);