summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-24 23:43:30 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-24 23:43:30 +0000
commit2c6ed1ba0039c3d905b659ada15e39b8d7af5d83 (patch)
tree1ba6593eef486848d3193862a745e218f8f77821
parenta1eb7ae8b26ee696fb7a904bf59ae18cf2b42256 (diff)
downloadperl_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()
-rw-r--r--NEWS2
-rw-r--r--src/lexer.mll2
2 files changed, 3 insertions, 1 deletions
diff --git a/NEWS b/NEWS
index 99aef07..b38ea5a 100644
--- a/NEWS
+++ b/NEWS
@@ -1,5 +1,7 @@
- add RPM4 fake package (for eg: iurt)
- update Net::FTP fake package for installer
+- perl_checker:
+ o recognize \B in regexps
Version 1.2.17 - 19 March 2012, by Thierry Vignaud
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
}
| _ {