From ad85be6404c23276f74e52ac752c942700866285 Mon Sep 17 00:00:00 2001
From: Karl Williamson <khw@cpan.org>
Date: Mon, 8 Jan 2018 19:11:52 -0700
Subject: An empty string is a script_run, but marked INVALID

---
 regexec.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'regexec.c')

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;
 
-- 
cgit v1.2.1