diff --git a/bin/auto b/bin/auto
index ab79b2a..96515d9 100755
--- a/bin/auto
+++ b/bin/auto
@@ -37,7 +37,7 @@ use API::Log qw(alog dbug);
 #use DB::Flatfile;
 use Parser::Config;
 use Parser::Lang;
-use Parser::IRC;
+use Proto::IRC;
 use Core::IRC;
 use Core::Cmd;
 
@@ -499,7 +499,7 @@ while (1) {
     		dbug $sockid.' >> '.$line;
 
             # Parse data.
-    		Parser::IRC::ircparse($sockid, $line);
+    		Proto::IRC::ircparse($sockid, $line);
     	}
     }
 }
diff --git a/lib/API/IRC.pm b/lib/API/IRC.pm
index 0ecb37b..69d9449 100644
--- a/lib/API/IRC.pm
+++ b/lib/API/IRC.pm
@@ -67,7 +67,7 @@ sub cpart
     	Auto::socksnd($svr, "PART $chan :Leaving");
     }
 
-    if (defined $Parser::IRC::botchans{$svr}{$chan}) { delete $Parser::IRC::botchans{$svr}{$chan}; }
+    if (defined $Proto::IRC::botchans{$svr}{$chan}) { delete $Proto::IRC::botchans{$svr}{$chan}; }
     
     return 1;
 }
@@ -87,7 +87,7 @@ sub umode
 {
     my ($svr, $modes) = @_;
     
-    Auto::socksnd($svr, "MODE ".$Parser::IRC::botnick{$svr}{nick}." $modes");
+    Auto::socksnd($svr, "MODE ".$Proto::IRC::botnick{$svr}{nick}." $modes");
     
     return 1;
 } 
@@ -129,7 +129,7 @@ sub nick
     
     Auto::socksnd($svr, "NICK $newnick");
     
-    $Parser::IRC::botnick{$svr}{newnick} = $newnick;
+    $Proto::IRC::botnick{$svr}{newnick} = $newnick;
     
     return 1;
 }
@@ -176,8 +176,8 @@ sub quit
     	Auto::socksnd($svr, "QUIT :Leaving");
     }
     
-    delete $Parser::IRC::got_001{$svr} if (defined $Parser::IRC::got_001{$svr});
-    delete $Parser::IRC::botnick{$svr} if (defined $Parser::IRC::botnick{$svr});
+    delete $Proto::IRC::got_001{$svr} if (defined $Proto::IRC::got_001{$svr});
+    delete $Proto::IRC::botnick{$svr} if (defined $Proto::IRC::botnick{$svr});
     
     return 1;
 }
diff --git a/lib/Proto/IRC.pm b/lib/Proto/IRC.pm
index bd81c07..4237a3e 100644
--- a/lib/Proto/IRC.pm
+++ b/lib/Proto/IRC.pm
@@ -1,7 +1,7 @@
-# lib/Parser/IRC.pm - Subroutines for parsing incoming data from IRC.
+# lib/Proto/IRC.pm - Subroutines for parsing incoming data from IRC.
 # Copyright (C) 2010-2011 Xelhua Development Group, et al.
 # This program is free software; rights to this code are stated in doc/LICENSE.
-package Parser::IRC;
+package Proto::IRC;
 use strict;
 use warnings;
 use API::Std qw(conf_get err awarn trans);