# HG changeset patch # User Heiko Schlittermann # Date 1233085854 -3600 # Node ID c49b149103943afb63effb6151f21104836f7a3a # Parent a8dd443e35a617d37fb69ce0a3f6a5295bec4e37 Informational output @start diff -r a8dd443e35a6 -r c49b14910394 hlog --- a/hlog Tue Jan 27 20:48:23 2009 +0100 +++ b/hlog Tue Jan 27 20:50:54 2009 +0100 @@ -55,6 +55,7 @@ ReuseAddr => 1, ) or die "Can't create listener socket: $!\n"; + warn "listener $opt_addr:$opt_port\n"; while (my $client = $listener->accept) { print LOG localtime()