# HG changeset patch
# User Heiko Schlittermann <hs@schlittermann.de>
# 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()