diff options
| author | Peter Andersson <[email protected]> | 2012-08-23 15:59:01 +0200 |
|---|---|---|
| committer | Peter Andersson <[email protected]> | 2012-08-23 15:59:01 +0200 |
| commit | 07bb0937baa442778f7d94f3dd6d9ba902d027bd (patch) | |
| tree | 0438def6fc8cc8bff025855071a4844434bb517f /lib | |
| parent | 14943cd6636e7abdae0e621a6dcb352d9354fcdf (diff) | |
| parent | 474e2e4485eaf6da0b325ad7c7e79b29fac262b7 (diff) | |
| download | otp-07bb0937baa442778f7d94f3dd6d9ba902d027bd.tar.gz otp-07bb0937baa442778f7d94f3dd6d9ba902d027bd.tar.bz2 otp-07bb0937baa442778f7d94f3dd6d9ba902d027bd.zip | |
Merge branch 'maint'
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/common_test/src/ct_hooks.erl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/common_test/src/ct_hooks.erl b/lib/common_test/src/ct_hooks.erl index 98b74665de..d0432b604d 100644 --- a/lib/common_test/src/ct_hooks.erl +++ b/lib/common_test/src/ct_hooks.erl @@ -192,12 +192,12 @@ call([{Hook, call_id, NextFun} | Rest], Config, Meta, Hooks) -> case lists:keyfind(NewId, #ct_hook_config.id, Hooks) of false when NextFun =:= undefined -> {Hooks ++ [NewHook], - [{NewId, call_init} | Rest]}; + Rest ++ [{NewId, call_init}]}; ExistingHook when is_tuple(ExistingHook) -> {Hooks, Rest}; _ -> {Hooks ++ [NewHook], - [{NewId, call_init}, {NewId,NextFun} | Rest]} + Rest ++ [{NewId, call_init}, {NewId,NextFun}]} end, call(resort(NewRest,NewHooks,Meta), Config, Meta, NewHooks) catch Error:Reason -> |