diff options
| author | Viktor Söderqvist <[email protected]> | 2020-11-12 14:30:59 +0100 |
|---|---|---|
| committer | Loïc Hoguin <[email protected]> | 2023-05-15 12:36:40 +0200 |
| commit | b7d8105ef0856bc30dfd018ccd357582a9f3f129 (patch) | |
| tree | e93b2b5161df2cf0edbd7b08218d55a094522143 | |
| parent | 7d0babaaa11679c4d9c877e17a3ffab9c6664517 (diff) | |
| download | erlang.mk-b7d8105ef0856bc30dfd018ccd357582a9f3f129.tar.gz erlang.mk-b7d8105ef0856bc30dfd018ccd357582a9f3f129.tar.bz2 erlang.mk-b7d8105ef0856bc30dfd018ccd357582a9f3f129.zip | |
Replace erlang:get_stacktrace() with catch C:E (V=0) or C:E:S (V>0)
This makes us compatible with OTP < 21, except when V (verbose) is set.
| -rw-r--r-- | plugins/asciidoc.mk | 4 | ||||
| -rw-r--r-- | plugins/proper.mk | 4 | ||||
| -rw-r--r-- | plugins/triq.mk | 4 |
3 files changed, 6 insertions, 6 deletions
diff --git a/plugins/asciidoc.mk b/plugins/asciidoc.mk index f4be7ff..778308b 100644 --- a/plugins/asciidoc.mk +++ b/plugins/asciidoc.mk @@ -57,8 +57,8 @@ try }) end || F <- [$(shell echo $(addprefix $(comma)\",$(addsuffix \",$1)) | sed 's/^.//')]], halt(0) -catch C:E -> - io:format("Exception ~p:~p~nStacktrace: ~p~n", [C, E, erlang:get_stacktrace()]), +catch C:E$(if $V,:S) -> + io:format("Exception: ~p:~p~n$(if $V,Stacktrace: ~p~n)", [C, E$(if $V,$(comma) S)]), halt(1) end. endef diff --git a/plugins/proper.mk b/plugins/proper.mk index 6262199..55a2788 100644 --- a/plugins/proper.mk +++ b/plugins/proper.mk @@ -37,8 +37,8 @@ define proper_check.erl end of true -> halt(0); _ -> halt(1) - catch error:undef -> - io:format("Undefined property or module?~n~p~n", [erlang:get_stacktrace()]), + catch error:undef$(if $V,:Stacktrace) -> + io:format("Undefined property or module?~n$(if $V,~p~n)", [$(if $V,Stacktrace)]), halt(0) end. endef diff --git a/plugins/triq.mk b/plugins/triq.mk index 8791e2c..6d41376 100644 --- a/plugins/triq.mk +++ b/plugins/triq.mk @@ -26,8 +26,8 @@ define triq_check.erl end of true -> halt(0); _ -> halt(1) - catch error:undef -> - io:format("Undefined property or module?~n~p~n", [erlang:get_stacktrace()]), + catch error:undef$(if $V,:Stacktrace) -> + io:format("Undefined property or module?~n$(if $V,~p~n)", [$(if $V,Stacktrace)]), halt(0) end. endef |