diff options
| author | Patrik Nyblom <[email protected]> | 2012-03-05 17:29:03 +0100 |
|---|---|---|
| committer | Patrik Nyblom <[email protected]> | 2012-03-22 18:16:14 +0100 |
| commit | db4ddca4d9709965121fba9a1f9cc68226f35a0c (patch) | |
| tree | f3a6719ac33760ed669b5c1d84aca67626cec4cb /lib/kernel/src/file.erl | |
| parent | cca350ef2206a81c0f8969071f412f07b87413a1 (diff) | |
| download | otp-db4ddca4d9709965121fba9a1f9cc68226f35a0c.tar.gz otp-db4ddca4d9709965121fba9a1f9cc68226f35a0c.tar.bz2 otp-db4ddca4d9709965121fba9a1f9cc68226f35a0c.zip | |
Correct some errors in the user tag spreading
Diffstat (limited to 'lib/kernel/src/file.erl')
| -rw-r--r-- | lib/kernel/src/file.erl | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lib/kernel/src/file.erl b/lib/kernel/src/file.erl index 3a618976f5..b281151778 100644 --- a/lib/kernel/src/file.erl +++ b/lib/kernel/src/file.erl @@ -1416,15 +1416,16 @@ mode_list(_) -> %% Functions for communicating with the file server call(Command, Args) when is_list(Args) -> - gen_server:call(?FILE_SERVER, list_to_tuple([Command | Args]), infinity). + X = erlang:spread_utag(true), + Y = gen_server:call(?FILE_SERVER, list_to_tuple([Command | Args]), + infinity), + erlang:restore_utag(X), + Y. check_and_call(Command, Args) when is_list(Args) -> case check_args(Args) of ok -> - X = erlang:spread_utag(true), - Y = call(Command, Args), - erlang:restore_utag(X), - Y; + call(Command, Args); Error -> Error end. |