From 090f71652b598badef32b379c0f36c2c6e4a9542 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 11 Sep 2003 04:45:56 +0000
Subject: Replace #21158 with a better patch from Hugo (for [perl #23769]).

p4raw-id: //depot/perl@21174
---
 regcomp.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'regcomp.c')

diff --git a/regcomp.c b/regcomp.c
index 80e5cfbf3d..07e68bdee3 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -3310,7 +3310,7 @@ tryagain:
 	    }
 	    if (len > 0)
 		*flagp |= HASWIDTH;
-	    if (len == 1)
+	    if (len == 1 && UNI_IS_INVARIANT(ender))
 		*flagp |= SIMPLE;
 	    if (!SIZE_ONLY)
 		STR_LEN(ret) = len;
-- 
cgit v1.2.1