diff options
| author | Fredrik Gustafsson <[email protected]> | 2013-11-06 10:48:09 +0100 |
|---|---|---|
| committer | Fredrik Gustafsson <[email protected]> | 2013-11-06 10:48:09 +0100 |
| commit | d97b3477c7d50962b903e3b8278db1dde6357371 (patch) | |
| tree | d24ec83622ddc3c81ea525db6b57b50269ab0b9a /lib/xmerl/src/xmerl.erl | |
| parent | e917f6de37279bf4a4147b27d9bfc32ebb036727 (diff) | |
| parent | 0b13c6cbfff58f928778428deb6862a7744416bb (diff) | |
| download | otp-d97b3477c7d50962b903e3b8278db1dde6357371.tar.gz otp-d97b3477c7d50962b903e3b8278db1dde6357371.tar.bz2 otp-d97b3477c7d50962b903e3b8278db1dde6357371.zip | |
Merge branch 'maint'
Diffstat (limited to 'lib/xmerl/src/xmerl.erl')
| -rw-r--r-- | lib/xmerl/src/xmerl.erl | 25 |
1 files changed, 12 insertions, 13 deletions
diff --git a/lib/xmerl/src/xmerl.erl b/lib/xmerl/src/xmerl.erl index 3249094e78..01af183eef 100644 --- a/lib/xmerl/src/xmerl.erl +++ b/lib/xmerl/src/xmerl.erl @@ -303,18 +303,17 @@ apply_tag_cb(Ms, F, Args) -> apply_cb(Ms, F, '#element#', Args). apply_cb(Ms, F, Df, Args) -> - apply_cb(Ms, F, Df, Args, Ms). - -apply_cb([M|Ms], F, Df, Args, Ms0) -> - case catch apply(M, F, Args) of - {'EXIT', {undef,[{M,F,_,_}|_]}} -> - apply_cb(Ms, F, Df, Args, Ms0); - {'EXIT', Reason} -> - exit(Reason); - Res -> - Res + apply_cb(Ms, F, Df, Args, length(Args)). + +apply_cb(Ms, F, Df, Args, A) -> + apply_cb(Ms, F, Df, Args, A, Ms). + +apply_cb([M|Ms], F, Df, Args, A, Ms0) -> + case erlang:function_exported(M, F, A) of + true -> apply(M, F, Args); + false -> apply_cb(Ms, F, Df, Args, A, Ms0) end; -apply_cb([], Df, Df, Args, _Ms0) -> +apply_cb([], Df, Df, Args, A, _Ms0) -> exit({unknown_tag, {Df, Args}}); -apply_cb([], F, Df, Args, Ms0) -> - apply_cb(Ms0, Df, Df, [F|Args]). +apply_cb([], F, Df, Args, A, Ms0) -> + apply_cb(Ms0, Df, Df, [F|Args], A+1). |