X-Git-Url: http://git.rot13.org/?p=perl-cwmp.git;a=blobdiff_plain;f=lib%2FCWMP%2FServer.pm;fp=lib%2FCWMP%2FServer.pm;h=78f4328be56ad224dd7a8767d30c0ef9944c6434;hp=eaf6c065b73541aa68566c49f303bb160b5fbc41;hb=75ca7a712fa4a0777558093c9af57a899ef1e36b;hpb=ad1f4c93b32fbf25f456357dc8f77aa3f97f696d

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