Perl_uvoffuni_to_utf8_flags() Combine ASCII, EBCDIC branches

[perl5.git] / dquote_inline.h

diff --git a/dquote_inline.h b/dquote_inline.h
index d8548bf..050b14f 100644 (file)
--- a/dquote_inline.h
+++ b/dquote_inline.h
@@ -101,7 +101,7 @@ S_grok_bslash_x(pTHX_ char **s, UV *uv, const char** error_msg,
             }
             return FALSE;
         }
-       goto ok;
+       return TRUE;
     }
 
     e = strchr(*s, '}');
@@ -128,7 +128,7 @@ S_grok_bslash_x(pTHX_ char **s, UV *uv, const char** error_msg,
         }
         *s = e + 1;
         *uv = 0;
-        goto ok;
+        return TRUE;
     }
 
     flags |= PERL_SCAN_ALLOW_UNDERSCORES;
@@ -150,10 +150,6 @@ S_grok_bslash_x(pTHX_ char **s, UV *uv, const char** error_msg,
     /* Return past the '}' */
     *s = e + 1;
 
-  ok:
-    /* guarantee replacing "\x{...}" with utf8 bytes fits within
-     * existing space */
-    assert(OFFUNISKIP(*uv) < *s - start);
     return TRUE;
 }