From 9c698e4162ebe0116bca07a878351430a8ffb19c Mon Sep 17 00:00:00 2001
From: Elijah Perrault <elijah@starcoder.info>
Date: Mon, 24 Jan 2011 22:27:48 -0700
Subject: [PATCH] Use return.

---
 src/API/IRC.pm | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/src/API/IRC.pm b/src/API/IRC.pm
index afb1ec2..a7c2da7 100644
--- a/src/API/IRC.pm
+++ b/src/API/IRC.pm
@@ -18,6 +18,8 @@ sub cjoin
 	my ($svr, $chan) = @_;
 	
 	Auto::socksnd($svr, "JOIN $chan");
+	
+	return 1;
 }
 
 # Part a channel.
@@ -31,6 +33,8 @@ sub cpart
 	else {
 		Auto::socksnd($svr, "PART $chan :Leaving");
 	}
+	
+	return 1;
 }
 
 # Set mode(s) on a channel.
@@ -39,6 +43,8 @@ sub cmode
 	my ($svr, $chan, $modes) = @_;
 
 	Auto::socksnd($svr, "MODE $chan $modes");
+	
+	return 1;
 }
 
 # Set mode(s) on us.
@@ -47,6 +53,8 @@ sub umode
 	my ($svr, $modes) = @_;
 	
 	Auto::socksnd($svr, "MODE ".$Parser::IRC::botnick{$svr}{nick}." $modes");
+	
+	return 1;
 } 
 
 # Send a PRIVMSG.
@@ -55,6 +63,8 @@ sub privmsg
 	my ($svr, $target, $message) = @_;
 	
 	Auto::socksnd($svr, "PRIVMSG $target :$message");
+	
+	return 1;
 }
 
 # Send a NOTICE.
@@ -63,6 +73,8 @@ sub notice
 	my ($svr, $target, $message) = @_;
 	
 	Auto::socksnd($svr, "NOTICE $target :$message");
+	
+	return 1;
 }
 
 # Change bot nickname.
@@ -73,6 +85,8 @@ sub nick
 	Auto::socksnd($svr, "NICK $newnick");
 	
 	$Parser::IRC::botnick{$svr}{newnick} = $newnick;
+	
+	return 1;
 }
 
 # Request the users of a channel.
@@ -99,6 +113,8 @@ sub quit
 	
 	delete $Parser::IRC::got_001{$svr} if (defined $Parser::IRC::got_001{$svr});
 	delete $Parser::IRC::botnick{$svr} if (defined $Parser::IRC::botnick{$svr});
+	
+	return 1;
 }