From f8bcbb0dbc3cb056d765305abf4fc2afa99b39a0 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 28 Apr 2004 08:57:49 +0000 Subject: - do check_simple_pattern() directly in from_PATTERN() - don't die, log instead for some regexp expressions --- perl_checker.src/parser_helper.ml | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'perl_checker.src/parser_helper.ml') diff --git a/perl_checker.src/parser_helper.ml b/perl_checker.src/parser_helper.ml index 0bba0d9..1e26878 100644 --- a/perl_checker.src/parser_helper.ml +++ b/perl_checker.src/parser_helper.ml @@ -963,8 +963,10 @@ let from_PATTERN parse { any = (s, opts) ; pos = pos } = else if str_ends_with s ".*$" then warn_rule (sprintf "you can remove \"%s\" at the end of your regexp" ".*$") | _ -> ()); - [ String(re, raw_pos2pos pos) ; - Raw_string(opts, raw_pos2pos pos) ] + let pattern = [ String(re, raw_pos2pos pos) ; Raw_string(opts, raw_pos2pos pos) ] in + check_simple_pattern pattern; + pattern + let from_PATTERN_SUBST parse { any = (s1, s2, opts) ; pos = pos } = [ String(parse_interpolated parse s1, raw_pos2pos pos) ; String(parse_interpolated parse s2, raw_pos2pos pos) ; -- cgit v1.2.1