From ce58dbe132269731e1f67599c23b073b9f740584 Mon Sep 17 00:00:00 2001
From: Elijah Perrault <elijah@starcoder.info>
Date: Sat, 29 Jan 2011 15:02:22 -0700
Subject: [PATCH] Made hook_add and hook_del exportable.

---
 src/API/Std.pm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/API/Std.pm b/src/API/Std.pm
index 5b46121..68e8491 100644
--- a/src/API/Std.pm
+++ b/src/API/Std.pm
@@ -10,7 +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 cmd_add cmd_del);
+our @EXPORT_OK = qw(conf_get trans err awarn timer_add timer_del cmd_add cmd_del hook_add hook_del);
 
 
 # Initialize a module.
@@ -172,9 +172,9 @@ sub hook_add
 {
 	my ($event, $name, $sub) = @_;
 	
-	unless (defined $HOOKS{lc($name)}) {
-		if (defined $EVENTS{lc($event)}) {
-			$HOOKS{lc($event)}{lc($name)} = $sub;
+	unless (defined $API::Std::HOOKS{lc($name)}) {
+		if (defined $API::Std::EVENTS{lc($event)}) {
+			$API::Std::HOOKS{lc($event)}{lc($name)} = $sub;
 			return 1;
 		}
 		else {
@@ -191,8 +191,8 @@ sub hook_del
 {
 	my ($event, $name) = @_;
 	
-	if (defined $HOOKS{lc($event)}{lc($name)}) {
-		delete $HOOKS{lc($event)}{lc($name)};
+	if (defined $API::Std::HOOKS{lc($event)}{lc($name)}) {
+		delete $API::Std::HOOKS{lc($event)}{lc($name)};
 		return 1;
 	}
 	else {