[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/bin/deliantra

Comparing deliantra/Deliantra-Client/bin/deliantra (file contents):
Revision 1.43 by root, Wed May 21 23:35:55 2008 UTC vs.
Revision 1.44 by root, Mon May 26 03:34:02 2008 UTC

 use Deliantra;
 use Deliantra::Protocol::Constants;
 use Compress::LZF;
+use DC;
-use DC; BEGIN { $SIG{__DIE__} = sub { DC::fatal Carp::longmess "$@" unless $^S } }
+#d# BEGIN { $SIG{__DIE__} = sub { DC::fatal Carp::longmess "$@" unless $^S } }
 use DC::OpenGL ();
 use DC::Protocol;
 use DC::DB;
 use DC::UI;
 use DC::UI::Canvas;
    my ($host, $port) = split /:/, $PROFILE->{host};
    $MAP = new DC::Map;
-   $CONN = eval {
+   $CONN =
-      local $SIG{__DIE__};
       new DC::Protocol
          host => $host,
          port => $port || 13327,
          user => $PROFILE->{user},
          pass => $PROFILE->{password},
          query      => \&server_query,
          setup_req  => {
             smoothing => $CFG->{map_smoothing}*1,
          },
-   };
-   if ($CONN) {
+         on_connect => sub {
+            if ($_[0]) {
-      DC::lowdelay fileno $CONN->{fh};
+               DC::lowdelay fileno $CONN->{fh};
-      status "login successful";
+               status "login successful";
-   } else {
+            } else {
-      warn $@;
+               undef $CONN;
-      status "unable to connect";
+               status "unable to connect: $!";
-      stop_game();
+               stop_game();
+            }
+         },
-   }
+   ;
 }
 sub stop_game {
    $LOGIN_BUTTON->set_text ("Login / Register");
    $SETUP_NOTEBOOK->set_current_page ($SETUP_LOGIN);

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines