diff options
| author | Ingela Anderton Andin <[email protected]> | 2011-01-10 11:03:51 +0100 |
|---|---|---|
| committer | Ingela Anderton Andin <[email protected]> | 2011-01-10 11:03:51 +0100 |
| commit | 8f0736be41397a73f8eba239f799555f95cd9309 (patch) | |
| tree | 6670701c08204d2bf6092d132b14734c84bfe6f3 /lib/ssl/src/ssl_certificate_db.erl | |
| parent | 86413606615440a7951b4c62162e2bfb87aa158c (diff) | |
| download | otp-8f0736be41397a73f8eba239f799555f95cd9309.tar.gz otp-8f0736be41397a73f8eba239f799555f95cd9309.tar.bz2 otp-8f0736be41397a73f8eba239f799555f95cd9309.zip | |
Corrected handling of data from an ets select.
The previous code happened to worked if the select-statment returned
only on entry.
Diffstat (limited to 'lib/ssl/src/ssl_certificate_db.erl')
| -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). |