lib/Config.t: Skip tests that are invalid on os390

[perl5.git] / dquote_static.c

diff --git a/dquote_static.c b/dquote_static.c
index 16227c1..93c023b 100644 (file)
--- a/dquote_static.c
+++ b/dquote_static.c
@@ -218,8 +218,6 @@ S_grok_bslash_x(pTHX_ char **s, UV *uv, const char** error_msg,
 
     PERL_ARGS_ASSERT_GROK_BSLASH_X;
 
-    PERL_UNUSED_ARG(output_warning);
-
     assert(**s == 'x');
     (*s)++;
 
@@ -267,6 +265,8 @@ S_grok_bslash_x(pTHX_ char **s, UV *uv, const char** error_msg,
             *error_msg = "Number with no digits";
             return FALSE;
         }
+        *s = e + 1;
+        *uv = 0;
         return TRUE;
     }