removed unused len parameter from yyl_dblquote()

The len variable is used, but the value is overwritten before being read.
Perl · Apr 27, 2020 · 91a0dcf · 91a0dcf
1 parent 4aca41a
commit 91a0dcf
Showing 1 changed file with 3 additions and 2 deletions.
diff --git 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);