diff options
author | Björn Gustavsson <bjorn@erlang.org> | 2011-08-26 10:18:45 +0200 |
---|---|---|
committer | Björn Gustavsson <bjorn@erlang.org> | 2011-10-27 12:26:49 +0200 |
commit | 4db2084d5742e54a35da5326ea0d20eac3a3f2c5 (patch) | |
tree | f10f87568ac5baea04ccc69b4a736439b7246f7e /erts/test/nt_SUITE.erl | |
parent | ba794ccff6038903271f5d81c3a0ce1674a430be (diff) | |
download | erlang-4db2084d5742e54a35da5326ea0d20eac3a3f2c5.tar.gz |
erts/nt_SUITE: Eliminate use of deprecated regexp module
Diffstat (limited to 'erts/test/nt_SUITE.erl')
-rw-r--r-- | erts/test/nt_SUITE.erl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/erts/test/nt_SUITE.erl b/erts/test/nt_SUITE.erl index 7d6da28ad6..f9bd15a0ce 100644 --- a/erts/test/nt_SUITE.erl +++ b/erts/test/nt_SUITE.erl @@ -490,12 +490,12 @@ middleman(Waitfor) -> match_event(_X, []) -> nomatch; match_event({Time,Cat,Fac,Sev,Mes},[{Pid,Ref,{Cat,Fac,Sev,MesRE}} | Tail]) -> - case regexp:match(Mes,MesRE) of - {match,_,_} -> + case re:run(Mes,MesRE,[{capture,none}]) of + match -> %%io:format("Match!~n"), {ok,{Pid,Ref,Time,Mes},Tail}; - _Z -> - %%io:format("No match (~p)~n",[_Z]), + nomatch -> + %%io:format("No match~n"), case match_event({Time,Cat,Fac,Sev,Mes},Tail) of {ok,X,Rest} -> {ok,X,[{Pid,Ref,{Cat,Fac,Sev,MesRE}} | Rest]}; |