From b97d6e45ab02a92fd862020a556892068bae3124 Mon Sep 17 00:00:00 2001
From: Elijah Perrault <elijah@starcoder.info>
Date: Wed, 9 Feb 2011 14:45:53 -0700
Subject: [PATCH] Finished VERSION reply.

---
 src/Core/IRC.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/Core/IRC.pm b/src/Core/IRC.pm
index d233d1e..004e6c1 100644
--- a/src/Core/IRC.pm
+++ b/src/Core/IRC.pm
@@ -6,12 +6,13 @@
 package Core::IRC;
 use strict;
 use warnings;
+use English qw(-no_match_vars);
 use API::Std qw(hook_add hook_del);
+use API::IRC qw(notice usrc);
 our $VERSION = 3.000000;
 
 # CTCP VERSION reply.
-sub version_reply
-{
+hook_add("on_uprivmsg", "ctcp_version_reply", sub {
     my (($svr, @ex)) = @_;
     my %src = usrc(substr($ex[0], 1));
 
@@ -25,4 +26,4 @@ sub version_reply
     }
 
     return 1;
-}
+});