dquote.c: Prevent possible out-of-bounds read

This code read a byte that was potentially out-of-bounds.  I don't know
how it could get this far, but maybe some fuzzing code could get it.

1 files changed, 1 insertions, 1 deletions

diff --git a/dquote.c b/dquote.c
index 17857dd175..bed6624e51 100644
--- a/dquote.c
+++ b/dquote.c
@@ -106,7 +106,7 @@ Perl_grok_bslash_o(pTHX_ char **s, const char * const send, UV *uv,
     assert(* *s       == 'o');
     (*s)++;
 
-    if (**s != '{') {
+    if (send <= *s || **s != '{') {
 	*error_msg = "Missing braces on \\o{}";
 	return FALSE;
     }