An empty string is a script_run, but marked INVALID

1 files changed, 1 insertions, 1 deletions

diff --git a/regexec.c b/regexec.c
index d11feabb6a..ae37c18b07 100644
--- a/regexec.c
+++ b/regexec.c
@@ -10360,7 +10360,7 @@ Perl_isSCRIPT_RUN(pTHX_ const U8 * s, const U8 * send, const bool utf8_target, S
 
     bool retval = TRUE;
 
-    assert(send > s);
+    assert(send >= s);
 
     PERL_ARGS_ASSERT_ISSCRIPT_RUN;