summaryrefslogtreecommitdiffstats
path: root/perl_checker.src
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-11-17 09:13:04 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-11-17 09:13:04 +0000
commit3f0e6648629aaacb6f1ad7da15889f2f87185d5b (patch)
treeb03d40f60e35df0f631e1672a301cde7f81364cb /perl_checker.src
parentfdd693626748456b5280d21a81b37b607aedb8d3 (diff)
downloadperl_checker-3f0e6648629aaacb6f1ad7da15889f2f87185d5b.tar
perl_checker-3f0e6648629aaacb6f1ad7da15889f2f87185d5b.tar.gz
perl_checker-3f0e6648629aaacb6f1ad7da15889f2f87185d5b.tar.bz2
perl_checker-3f0e6648629aaacb6f1ad7da15889f2f87185d5b.tar.xz
perl_checker-3f0e6648629aaacb6f1ad7da15889f2f87185d5b.zip
\z and \Z are zero-width assertions in regexps
Diffstat (limited to 'perl_checker.src')
-rw-r--r--perl_checker.src/lexer.mll2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl_checker.src/lexer.mll b/perl_checker.src/lexer.mll
index ebd183e..8aaeca0 100644
--- a/perl_checker.src/lexer.mll
+++ b/perl_checker.src/lexer.mll
@@ -932,7 +932,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' '^' '.' '*' '+' '?' '[' ']' '(' ')' '|' '{' '}' '-' ':'] {
+| ['r' 'b' 'f' '$' '@' '%' 's' 'S' 'd' 'D' 'w' 'W' 'Q' 'E' 'b' 'Z' 'z' '^' '.' '*' '+' '?' '[' ']' '(' ')' '|' '{' '}' '-' ':'] {
next_s ("\\" ^ lexeme lexbuf) (Stack.pop next_rule) lexbuf
}
| _ {