1%% 2%% %CopyrightBegin% 3%% 4%% Copyright Ericsson AB 2005-2016. All Rights Reserved. 5%% 6%% Licensed under the Apache License, Version 2.0 (the "License"); 7%% you may not use this file except in compliance with the License. 8%% You may obtain a copy of the License at 9%% 10%% http://www.apache.org/licenses/LICENSE-2.0 11%% 12%% Unless required by applicable law or agreed to in writing, software 13%% distributed under the License is distributed on an "AS IS" BASIS, 14%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. 15%% See the License for the specific language governing permissions and 16%% limitations under the License. 17%% 18%% %CopyrightEnd% 19%% 20-module(otp_5404). 21-compile(export_all). 22 23%% Thanks to Martin Bjorklund. 24 25?MODULE() -> 26 ok. 27 28-record(bar, {status, vs = []}). 29 30y() -> 31 x({foo, 1, []}). 32 33get_bar() -> 34 #bar{status = 1}. 35 36x(Trans) -> 37 {foo, Barno, _} = Trans, 38 case get_bar() of 39 Bar when Bar#bar.status /= 2 -> 40 if 1 == 1 -> 41 mnesia:dirty_delete({bar, Barno}), 42 Vs = [1,2] ++ Bar#bar.vs, 43 Bar33 = Bar#bar{status = 1}, 44 Bar1 = Bar#bar{status = 3, 45 vs = Vs}, 46 [{payment, Barno}]; 47 true -> 48 Barno 49 end; 50 _ -> 51 Trans 52 end. 53