Changeset 9675

Timestamp:

12/13/09 23:18:48 (2 years ago)

Author:

szabgab

Message:

remove unnecessary error checking

File:

• trunk/Debug-Client/lib/Debug/Client.pm (modified) (2 diffs)

trunk/Debug-Client/lib/Debug/Client.pm

@@ -70 +70 @@
              %args);
 
-    die("Usage: $0 hostname portno") unless ($args{host} =~ /\w+/ && $args{port} =~ /^\d+$/);
-
     # Open the socket the debugger will connect to.
     my $sock = IO::Socket::INET->new(
@@ -79 +77 @@
                    Listen    => SOMAXCONN,
                    Reuse     => 1);
-    $sock or die "no socket :$!";
-    #print "listening on $args{host}:$args{port}\n";
+    $sock or die "Could not connect to '$args{host}' '$args{port}' no socket :$!";
+    logger("listening on '$args{host}:$args{port}'");
     $self->{sock} = $sock;