We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent b829c69 commit 6f05113Copy full SHA for 6f05113
pp_ctl.c
@@ -5192,11 +5192,17 @@ S_require_file(pTHX_ SV *sv)
5192
S_parse_ident */
5193
c = name;
5194
while (c < e) {
5195
- if (utf8 && isIDFIRST_utf8_safe(c, e)) {
5196
- c += UTF8SKIP(c);
5197
- while (c < e && isIDCONT_utf8_safe(
5198
- (const U8*) c, (const U8*) e))
5199
+ Size_t advance;
+
+ if (utf8 && (advance = isIDFIRST_utf8_safe(c, e)))
+ {
+ c += advance;
5200
+ while ( c < e
5201
+ && (advance = isIDCONT_utf8_safe(
5202
+ (const U8*) c, (const U8*) e)))
5203
5204
5205
+ }
5206
}
5207
else if (isWORDCHAR_A(*c)) {
5208
while (c < e && isWORDCHAR_A(*c))
0 commit comments