… | |
… | |
738 | my ($host, $port) = split /:/, $PROFILE->{host}; |
738 | my ($host, $port) = split /:/, $PROFILE->{host}; |
739 | |
739 | |
740 | $MAP = new DC::Map; |
740 | $MAP = new DC::Map; |
741 | |
741 | |
742 | $CONN = eval { |
742 | $CONN = eval { |
|
|
743 | local $SIG{__DIE__}; |
|
|
744 | |
743 | new DC::Protocol |
745 | new DC::Protocol |
744 | host => $host, |
746 | host => $host, |
745 | port => $port || 13327, |
747 | port => $port || 13327, |
746 | user => $PROFILE->{user}, |
748 | user => $PROFILE->{user}, |
747 | pass => $PROFILE->{password}, |
749 | pass => $PROFILE->{password}, |