--- trunk/bin/irc-logger.pl	2007/02/03 12:28:17	46
+++ trunk/bin/irc-logger.pl	2007/02/03 12:50:45	48
@@ -480,7 +480,7 @@
     },
 	irc_ping => sub {
 		warn "pong ", $_[ARG0], $/;
-		$ping->{$_[ARG0]++};
+		$ping->{ $_[ARG0] }++;
 	},
 	irc_invite => sub {
 		my $kernel = $_[KERNEL];