Merge pull request #248 from ocaml/ps/rr/refactor_perl___raise__exit_…

…_without_backtrace refactor(perl): raise [Exit] without backtrace
ocaml · Apr 15, 2024 · 7f7b085 · 7f7b085
2 parents db6b123 + 6099fd5
commit 7f7b085
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/perl.ml b/lib/perl.ml
@@ -59,8 +59,8 @@ let parse multiline dollar_endonly dotall ungreedy s =
     let len = String.length s' in
     try
       for j = 0 to len - 1 do
-        try if s'.[j] <> s.[!i + j] then raise Exit
-        with _ -> raise Exit
+        try if s'.[j] <> s.[!i + j] then raise_notrace Exit
+        with _ -> raise_notrace Exit
       done;
       i := !i + len;
       true