- do check_simple_pattern() directly in from_PATTERN()

- don't die, log instead for some regexp expressions

1 files changed, 4 insertions, 2 deletions

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) ;