From 3a2687a4be91aceb00928b6873ff63f87bf82625 Mon Sep 17 00:00:00 2001
From: Elijah Perrault <elijah@starcoder.info>
Date: Sat, 29 Jan 2011 14:59:23 -0700
Subject: [PATCH] Made cmd_add and cmd_del exportable.

---
 src/API/Std.pm | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/src/API/Std.pm b/src/API/Std.pm
index 91ca9ba..5b46121 100644
--- a/src/API/Std.pm
+++ b/src/API/Std.pm
@@ -10,8 +10,7 @@ use Exporter;
 
 our (%LANGE, %MODULE, %EVENTS, %HOOKS, %CMDS);
 our @ISA = qw(Exporter);
-our @EXPORT_OK = qw(conf_get trans err awarn timer_add timer_del);
-
+our @EXPORT_OK = qw(conf_get trans err awarn timer_add timer_del cmd_add cmd_del);
 
 
 # Initialize a module.
@@ -95,13 +94,13 @@ sub cmd_add
 	my ($cmd, $lvl, $fhelp, $shelp, $sub) = @_;
 	$cmd = uc($cmd);
 	
-	return 0 if (defined $CMDS{$cmd});
+	return 0 if (defined $API::Std::CMDS{$cmd});
 	return 0 if ($lvl =~ m/[^0-2]/);
 	
-	$CMDS{$cmd}{lvl}   = $lvl;
-	$CMDS{$cmd}{fhelp} = $fhelp;
-	$CMDS{$cmd}{shelp} = $shelp;
-	$CMDS{$cmd}{sub}   = $sub;
+	$API::Std::CMDS{$cmd}{lvl}   = $lvl;
+	$API::Std::CMDS{$cmd}{fhelp} = $fhelp;
+	$API::Std::CMDS{$cmd}{shelp} = $shelp;
+	$API::Std::CMDS{$cmd}{sub}   = $sub;
 	
 	return 1;
 }
@@ -113,8 +112,8 @@ sub cmd_del
 	my ($cmd) = @_;
 	$cmd = uc($cmd);
 	
-	if (defined $CMDS{$cmd}) {
-		delete $CMDS{$cmd};
+	if (defined $API::Std::CMDS{$cmd}) {
+		delete $API::Std::CMDS{$cmd};
 	}
 	else {
 		return 0;