From 75ca7a712fa4a0777558093c9af57a899ef1e36b Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Sun, 7 Mar 2010 20:36:13 +0000 Subject: [PATCH] cleanup duplicate startup message git-svn-id: https://perl-cwmp.googlecode.com/svn/trunk@268 836a5e1a-633d-0410-964b-294494ad4392 --- lib/CWMP/Server.pm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/lib/CWMP/Server.pm b/lib/CWMP/Server.pm index eaf6c06..78f4328 100644 --- a/lib/CWMP/Server.pm +++ b/lib/CWMP/Server.pm @@ -63,8 +63,6 @@ sub new { warn "created ", __PACKAGE__, "(", dump( @_ ), ") object\n" if $self->debug; - warn "ACS waiting for request on port ", $self->port, "\n"; - $self->debug( 0 ) unless $self->debug; warn "## debug level: ", $self->debug, "\n" if $self->debug; @@ -85,7 +83,7 @@ sub run { Reuse => 1 ) || die "can't start server on ", $self->port, ": $!"; - warn "listen on ", $server->sockhost, ":", $server->sockport, "\n"; + warn "ACS waiting for request on port ", $self->port, "\n"; while (1) { my $client = $server->accept() || next; # ALARM trickle us -- 2.20.1