pad.c: Share pad name lists between clones

[perl5.git] / dquote_static.c

diff --git a/dquote_static.c b/dquote_static.c
index 4f839ee..f7c3e5c 100644 (file)
--- a/dquote_static.c
+++ b/dquote_static.c
@@ -138,7 +138,7 @@ S_grok_bslash_o(pTHX_ const char *s,
     }
 
     /* Return past the '}' no matter what is inside the braces */
-    *len = e - s + 2;  /* 2 = 1 for the o + 1 for the '}' */
+    *len = e - s + 2;  /* 2 = 1 for the 'o' + 1 for the '}' */
 
     s++;    /* Point to first digit */
 
@@ -196,6 +196,7 @@ S_grok_bslash_x(pTHX_ const char *s,
 
     PERL_ARGS_ASSERT_GROK_BSLASH_X;
 
+    PERL_UNUSED_ARG(output_warning);
 
     assert(*s == 'x');
     s++;