Add support for OTP-22
diff --git a/.travis.yml b/.travis.yml
index 715a9e0..47900b0 100644
--- a/.travis.yml
+++ b/.travis.yml
@@ -1,6 +1,7 @@
sudo: false
language: erlang
otp_release:
+ - 22.0
- 21.0
- 20.0
- 19.3
diff --git a/src/recon_alloc.erl b/src/recon_alloc.erl
index 7c2d029..a89354d 100644
--- a/src/recon_alloc.erl
+++ b/src/recon_alloc.erl
@@ -420,6 +420,9 @@
%% value is very rarely important so leave it
%% like this for now.
{K, lists:max([V1,V2])};
+ ({{K,V1}, {K,V2}}) when K =:= foreign_blocks ->
+ %% foreign blocks are just merged as a bigger list.
+ {K, V1++V2};
({{K,V1}, {K,V2}}) ->
{K, V1 + V2};
({{K,C1,L1,M1}, {K,C2,L2,M2}}) ->
diff --git a/test/recon_SUITE.erl b/test/recon_SUITE.erl
index 6cf63fb..dbb4d86 100644
--- a/test/recon_SUITE.erl
+++ b/test/recon_SUITE.erl
@@ -66,7 +66,7 @@
info4(Config) ->
Pid = ?config(pid, Config),
- Keys = [meta, signals, location, memory_used, work,
+ Keys = [meta, signals, location, memory_used,
links, monitors, messages,
[links, monitors, messages]],
{A,B,C} = pid_to_triple(Pid),