diff options
| author | Björn Gustavsson <[email protected]> | 2017-10-05 13:10:42 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2017-10-13 11:55:47 +0200 |
| commit | 20c2b1b174b44ed24afe73b3ac604e14d8c9318f (patch) | |
| tree | 12de0b016a086e9bfc45ee498f201e36fe4c6e6f /erts/emulator/test/alloc_SUITE.erl | |
| parent | 0f2e313475bae2d3870333b0340e8453bbff51a5 (diff) | |
| download | otp-20c2b1b174b44ed24afe73b3ac604e14d8c9318f.tar.gz otp-20c2b1b174b44ed24afe73b3ac604e14d8c9318f.tar.bz2 otp-20c2b1b174b44ed24afe73b3ac604e14d8c9318f.zip | |
Eliminate use of deprecated functions in string
Diffstat (limited to 'erts/emulator/test/alloc_SUITE.erl')
| -rw-r--r-- | erts/emulator/test/alloc_SUITE.erl | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/erts/emulator/test/alloc_SUITE.erl b/erts/emulator/test/alloc_SUITE.erl index f0871ead7d..5e5cd6f578 100644 --- a/erts/emulator/test/alloc_SUITE.erl +++ b/erts/emulator/test/alloc_SUITE.erl @@ -89,10 +89,11 @@ mmsc_flags() -> mmsc_flags(Env) -> case os:getenv(Env) of false -> false; - V -> case string:str(V, "+MMsc") of - 0 -> false; - P -> Env ++ "=" ++ string:substr(V, P) - end + V -> + case string:find(V, "+MMsc") of + nomatch -> false; + SubStr -> Env ++ "=" ++ SubStr + end end. erts_mmap_do(Config, SCO, SCRPM, SCRFSD) -> |