diff options
| author | Kenneth Lundin <[email protected]> | 2011-03-08 17:26:32 +0100 |
|---|---|---|
| committer | Kenneth Lundin <[email protected]> | 2011-03-08 17:26:32 +0100 |
| commit | 00eac4ea859ea5cade4942dc8219355d7bca6149 (patch) | |
| tree | 6504c7b5cb148ee9e7defc6fa677271c9f8c10e1 /lib/cosProperty/src/CosPropertyService_PropertySetFactory_impl.erl | |
| parent | 26d701c1c334d41a43712b71c11d61995cecd279 (diff) | |
| parent | dea83e25a671b0bc2661582c3227c1728d69bfea (diff) | |
| download | otp-00eac4ea859ea5cade4942dc8219355d7bca6149.tar.gz otp-00eac4ea859ea5cade4942dc8219355d7bca6149.tar.bz2 otp-00eac4ea859ea5cade4942dc8219355d7bca6149.zip | |
Merge branch 'dev' of super:otp into dev
Diffstat (limited to 'lib/cosProperty/src/CosPropertyService_PropertySetFactory_impl.erl')
| -rw-r--r-- | lib/cosProperty/src/CosPropertyService_PropertySetFactory_impl.erl | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/lib/cosProperty/src/CosPropertyService_PropertySetFactory_impl.erl b/lib/cosProperty/src/CosPropertyService_PropertySetFactory_impl.erl index ad3cdb62d4..4bc29b99ac 100644 --- a/lib/cosProperty/src/CosPropertyService_PropertySetFactory_impl.erl +++ b/lib/cosProperty/src/CosPropertyService_PropertySetFactory_impl.erl @@ -2,7 +2,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2000-2009. All Rights Reserved. +%% Copyright Ericsson AB 2000-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 @@ -153,12 +153,18 @@ create_initial_propertyset(_OE_This, State, Properties) -> %% Internal functions %%====================================================================== evaluate_propertyset(Sets) -> - evaluate_propertyset(Sets, [], []). + case evaluate_propertyset(Sets, [], []) of + {ok, NewProperties} -> + NewProperties; + {error, Exc} -> + corba:raise(#'CosPropertyService_MultipleExceptions'{exceptions = Exc}) + end. + evaluate_propertyset([], NewProperties, []) -> %% No exceptions found. - NewProperties; + {ok, NewProperties}; evaluate_propertyset([], _, Exc) -> - corba:raise(#'CosPropertyService_MultipleExceptions'{exceptions = Exc}); + {error, Exc}; evaluate_propertyset([#'CosPropertyService_Property' {property_name = Name, property_value = Value}|T], X, Exc) -> |