From: Lukas Mai <l.mai@web.de>
Date: Wed, 20 Jun 2012 06:56:26 +0000 (+0200)
Subject: detect sigils without strchr()
X-Git-Tag: v0.06_01~31
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f5cc9bdd5072a3c957647454593429348b080f4e;p=p5sagit%2FFunction-Parameters.git

detect sigils without strchr()
---

diff --git a/Parameters.xs b/Parameters.xs
index 0900901..52c0bdb 100644
--- 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);