projects
/
p5sagit/Function-Parameters.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
detect sigils without strchr()
[p5sagit/Function-Parameters.git]
/
Parameters.xs
diff --git
a/Parameters.xs
b/Parameters.xs
index
0900901
..
52c0bdb
100644
(file)
--- a/
Parameters.xs
+++ b/
Parameters.xs
@@
-175,7
+175,7
@@
static int parse_fun(pTHX_ OP **pop, const char *keyword_ptr, STRLEN keyword_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);