diff options
| author | Erlang/OTP <[email protected]> | 2011-01-17 14:16:51 +0100 |
|---|---|---|
| committer | Erlang/OTP <[email protected]> | 2011-01-17 14:16:51 +0100 |
| commit | ebd4190e1ea0a211d474b96d53e4b0f873134a85 (patch) | |
| tree | 6670701c08204d2bf6092d132b14734c84bfe6f3 | |
| parent | 86413606615440a7951b4c62162e2bfb87aa158c (diff) | |
| parent | 8f0736be41397a73f8eba239f799555f95cd9309 (diff) | |
| download | otp-ebd4190e1ea0a211d474b96d53e4b0f873134a85.tar.gz otp-ebd4190e1ea0a211d474b96d53e4b0f873134a85.tar.bz2 otp-ebd4190e1ea0a211d474b96d53e4b0f873134a85.zip | |
Merge branch 'ia/ssl/uncache-pem/OTP-9018' into maint-r14
* ia/ssl/uncache-pem/OTP-9018:
Corrected handling of data from an ets select.
| -rw-r--r-- | lib/ssl/src/ssl_certificate_db.erl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/ssl/src/ssl_certificate_db.erl b/lib/ssl/src/ssl_certificate_db.erl index f34459de37..3eceefa304 100644 --- a/lib/ssl/src/ssl_certificate_db.erl +++ b/lib/ssl/src/ssl_certificate_db.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2007-2010. All Rights Reserved. +%% Copyright Ericsson AB 2007-2011. All Rights Reserved. %% %% The contents of this file are subject to the Erlang Public License, %% Version 1.1, (the "License"); you may not use this file except in @@ -122,8 +122,8 @@ cache_pem_file(Pid, File, Time, [CertsDb, _FileToRefDb, PidToFileDb]) -> %% but with different content. %% -------------------------------------------------------------------- uncache_pem_file(File, [_CertsDb, _FileToRefDb, PidToFileDb]) -> - [Pids] = select(PidToFileDb, [{{'$1', File},[],['$$']}]), - lists:foreach(fun(Pid) -> + Pids = select(PidToFileDb, [{{'$1', File},[],['$$']}]), + lists:foreach(fun([Pid]) -> exit(Pid, shutdown) end, Pids). |