diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-03-24 23:43:30 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-03-24 23:43:30 +0000 |
| commit | 2c6ed1ba0039c3d905b659ada15e39b8d7af5d83 (patch) | |
| tree | 1ba6593eef486848d3193862a745e218f8f77821 /src | |
| parent | a1eb7ae8b26ee696fb7a904bf59ae18cf2b42256 (diff) | |
| download | perl_checker-2c6ed1ba0039c3d905b659ada15e39b8d7af5d83.tar perl_checker-2c6ed1ba0039c3d905b659ada15e39b8d7af5d83.tar.gz perl_checker-2c6ed1ba0039c3d905b659ada15e39b8d7af5d83.tar.bz2 perl_checker-2c6ed1ba0039c3d905b659ada15e39b8d7af5d83.tar.xz perl_checker-2c6ed1ba0039c3d905b659ada15e39b8d7af5d83.zip | |
recognize \B in regexps (match except at a word boundary)
eg: in detect_devices::is_netbook_nettop()
Diffstat (limited to 'src')
| -rw-r--r-- | src/lexer.mll | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lexer.mll b/src/lexer.mll index fdb9420..07bd825 100644 --- a/src/lexer.mll +++ b/src/lexer.mll @@ -951,7 +951,7 @@ and re_string_escape = parse | "x{" [^ '}']* '}' { hex_in_string lexbuf next_rule (skip_n_char_ 2 1 (lexeme lexbuf)) } | '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" } -| ['r' 'b' 'f' '$' '@' '%' 's' 'S' 'd' 'D' 'w' 'W' 'Q' 'E' 'b' 'Z' 'z' '^' '.' '*' '+' '?' '[' ']' '(' ')' '|' '{' '}' '-' ':'] { +| ['r' 'B' 'b' 'f' '$' '@' '%' 's' 'S' 'd' 'D' 'w' 'W' 'Q' 'E' 'b' 'Z' 'z' '^' '.' '*' '+' '?' '[' ']' '(' ')' '|' '{' '}' '-' ':'] { next_s ("\\" ^ lexeme lexbuf) (Stack.pop next_rule) lexbuf } | _ { |