Use full sym name in isIDFIRST_utf8 to fix [perl #100930]

[perl5.git] / regexp.h

diff --git a/regexp.h b/regexp.h
index c4fa609..5776a90 100644 (file)
--- a/regexp.h
+++ b/regexp.h
@@ -323,8 +323,9 @@ get_regex_charset_name(const U32 flags, STRLEN* const lenp)
        case REGEX_ASCII_MORE_RESTRICTED_CHARSET:
            *lenp = 2;
            return ASCII_MORE_RESTRICT_PAT_MODS;
+        default:
+           return "?";     /* Unknown */
     }
-
     return "?";            /* Unknown */
 }