diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2004-01-05 12:01:14 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2004-01-05 12:01:14 +0000 |
commit | ef6aec9661171a5bf480d0931a7115c4f2fa5a92 (patch) | |
tree | ca7d58aadf17e1adfca203cfe623dc8bed6ce1db /perl_checker.src | |
parent | bc8a300f3e2050cb8ebd1b21ce0a84c9e8f63f15 (diff) | |
download | perl_checker-ef6aec9661171a5bf480d0931a7115c4f2fa5a92.tar perl_checker-ef6aec9661171a5bf480d0931a7115c4f2fa5a92.tar.gz perl_checker-ef6aec9661171a5bf480d0931a7115c4f2fa5a92.tar.bz2 perl_checker-ef6aec9661171a5bf480d0931a7115c4f2fa5a92.tar.xz perl_checker-ef6aec9661171a5bf480d0931a7115c4f2fa5a92.zip |
handle \\$a
Diffstat (limited to 'perl_checker.src')
-rw-r--r-- | perl_checker.src/lexer.mll | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl_checker.src/lexer.mll b/perl_checker.src/lexer.mll index 225d21a..efa5262 100644 --- a/perl_checker.src/lexer.mll +++ b/perl_checker.src/lexer.mll @@ -630,10 +630,10 @@ rule token = parse failwith (pos2sfull_with (lexeme_start lexbuf + 2) (lexeme_end lexbuf) ^ "Don't use <<\"MARK\", use <<MARK instead") } -| "\\" stash +| "\\"+ stash | "\\" ['0'-'9' 'A'-'Z' 'a'-'z'] | "\\" ' '* '(' - { putback lexbuf 1; REF(pos lexbuf) } + { lexbuf.lex_curr_pos <- lexbuf.lex_start_pos + 1; REF(pos lexbuf) } | "sub(" [ '$' '@' '\\' '&' ';' '%' ]* ')' { SUB_WITH_PROTO(skip_n_char_ 4 1 (lexeme lexbuf), pos lexbuf) |