gen_tcp：使用超级用户时，connect将关闭

当我直接运行gen_server时，我有一个简单的gen_server连接到tcp端口：

erl -noshell -s ttest start

它工作正常，但是当我运行时：

erl -noshell -s tt_sup start_link

连接将立即关闭，如果我取消链接主管，它将可以使用：

erl -noshell -s tt_sup start_shell

我如何与主管一起运行简单的gen_tcp：connect（gen_server）？

主管：

-module(tt_sup).
-behaviour(supervisor).
-export([init/1, start_link/0, start_shell/0]).

start_link() ->
    io:format("Supervisor started with PID~p~n", [self()]),
    {ok, Pid} = supervisor:start_link(tt_sup, []),
    io:format("Supervisor PID=~p~n", [Pid]),
    {ok, Pid}.

start_shell() ->
    io:format("Supervisor started with PID~p~n", [self()]),
    {ok, Pid} = supervisor:start_link(tt_sup, []),
    io:format("Supervisor PID=~p~n", [Pid]),
    unlink(Pid),
    {ok, Pid}.

init(_Args) ->
    SupFlags = #{strategy => one_for_one},
    Child = [#{id => ttest, start => {ttest, start, []},
               restart => permanent, shutdown => brutal_kill,
               type => worker, modules => [ttest]}],
    {ok, {SupFlags, Child}}.

gen_server：

-module(ttest).
-export([start/0,init/1,handle_cast/2,handle_call/3,handle_info/2,terminate/2,connect/1]).
-behaviour(gen_server).



start() ->

       io:format("gen_server start id is ~p~n",[self()]),
       {ok,Pid} = gen_server:start_link({local,ttest},ttest,[],[]),
       io:format("gen_server id is ~p~n",[Pid]),
       connect(Pid),
       {ok,Pid}.



init(_Args) ->
        io:format("init id is ~p~n",[self()]),
        {ok,[]}.       
handle_call({tcp,Socket,Bin},_From,States) ->
        {reply,States,States}.
handle_info({tcp,Socket,Bin},States) ->
        io:format("got info msg"),
        {noreply,States}.

handle_cast({send,Msg},States) ->
        {reply,States}.

connect(I) ->
    io:format("connect id is ~p~n",[self()]),
    {ok,Socket} =gen_tcp:connect("localhost",6000,[binary,{active,true}]),
    gen_tcp:controlling_process(Socket,I).



terminate(shutdown, State) ->
    io:format("terminating"),
    ok.