diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-05-23 13:16:38 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-05-23 13:16:38 +0000 |
| commit | c9bfa38fe2413feb0c4495242fa8886c7f4669d3 (patch) | |
| tree | eb3920dfbf6512cc6d1d323424cca0f7b08f4e3d /perl_checker.src | |
| parent | 42d6f9a682a80f1876eb568bd14c2583256d8893 (diff) | |
| download | perl_checker-c9bfa38fe2413feb0c4495242fa8886c7f4669d3.tar perl_checker-c9bfa38fe2413feb0c4495242fa8886c7f4669d3.tar.gz perl_checker-c9bfa38fe2413feb0c4495242fa8886c7f4669d3.tar.bz2 perl_checker-c9bfa38fe2413feb0c4495242fa8886c7f4669d3.tar.xz perl_checker-c9bfa38fe2413feb0c4495242fa8886c7f4669d3.zip | |
fix "/^\d+\.\*$/" giving warning "you can remove \".*$\" at the end of your regexp"
Diffstat (limited to 'perl_checker.src')
| -rw-r--r-- | perl_checker.src/lexer.mll | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl_checker.src/lexer.mll b/perl_checker.src/lexer.mll index 2b27689..e43aa9f 100644 --- a/perl_checker.src/lexer.mll +++ b/perl_checker.src/lexer.mll @@ -815,7 +815,7 @@ and re_string_escape = parse | 'x' [^ '{'] _ { hex_in_string lexbuf next_rule (skip_n_char 1 (lexeme lexbuf)) } | '\n' { die lexbuf "do not use \"\\\" before end-of-line, it's useless and generally bad" } | ['b' 'f' '$' '@' '%' '"' 's' 'S' 'd' 'D' 'w' 'W' 'Q' 'E' 'b' '.' '*' '+' '?' '[' ']' '(' ')' '|' '{' '}' '-'] { - next (Stack.pop next_rule) lexbuf + next_s ("\\" ^ lexeme lexbuf) (Stack.pop next_rule) lexbuf } | _ { let c = lexeme lexbuf in |