1%%
2%% %CopyrightBegin%
3%%
4%% Copyright Ericsson AB 2008-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
21-module(cpbugx).
22
23-export([before/0,before2/0,before3/0]).
24
25before() ->
26    1 + lethal().
27
28lethal() ->
29    4711.
30
31before2() ->
32    {status,lethal2(self())}.
33
34lethal2(Pid) ->
35    try
36	is_process_alive(Pid)
37    catch
38	_ ->
39	    error
40    end.
41
42before3() ->
43    atom_to_list(lethal3(self())).
44
45lethal3(Pid) ->
46    Pid ! garbage.
47