if (kw_active_len <= kw_len) {
return FALSE;
}
- for (p = kw_active; p < kw_active + kw_active_len - kw_len; p++) {
+ for (
+ p = kw_active;
+ (p = strchr(p, *kw_ptr)) &&
+ p < kw_active + kw_active_len - kw_len;
+ p++
+ ) {
if (
(p == kw_active || p[-1] == ' ') &&
p[kw_len] == ' ' &&
for (;;) {
c = lex_peek_unichar(0);
- if (c && strchr("$@%", c)) {
+ if (c == '$' || c == '@' || c == '%') {
sv_catpvf(params, "%c", (int)c);
lex_read_unichar(0);
lex_read_space(0);
sv_catpvs(gen, ")=@_;");
}
-
/* named sub */
if (saw_name) {
/* fprintf(stderr, "! [%.*s]\n", (int)(PL_bufend - PL_bufptr), PL_bufptr); */