Break out code from Perl_sv_gets() which is self contained and exits directly.

[perl5.git] / regcomp.sym

diff --git a/regcomp.sym b/regcomp.sym
index 63e66e0..a85d33f 100644 (file)
--- a/regcomp.sym
+++ b/regcomp.sym
@@ -192,6 +192,7 @@ HORIZWS     HORIZWS,    none 0 S  ; horizontal whitespace       (Perl 6)
 NHORIZWS    NHORIZWS,   none 0 S  ; not horizontal whitespace   (Perl 6)
 
 FOLDCHAR    FOLDCHAR,   codepoint 1 ; codepoint with tricky case folding properties.
+EXACTFU     EXACT,      str        ; Match this string, folded, Unicode semantics for non-utf8 (prec. by length).
 
 # NEW STUFF ABOVE THIS LINE