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 | 3291484d6a31fde4af887afd91eccd34c291b629 (patch) | |
tree | b6fa8c07537e65a20a2570de5877211d2d1c1b02 /perl_checker.src | |
parent | 56f08017d8ebe9f63e0ac0160cb526055db7602e (diff) | |
download | perl-MDK-Common-3291484d6a31fde4af887afd91eccd34c291b629.tar perl-MDK-Common-3291484d6a31fde4af887afd91eccd34c291b629.tar.gz perl-MDK-Common-3291484d6a31fde4af887afd91eccd34c291b629.tar.bz2 perl-MDK-Common-3291484d6a31fde4af887afd91eccd34c291b629.tar.xz perl-MDK-Common-3291484d6a31fde4af887afd91eccd34c291b629.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) |