sydney/Autobot
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Made hook_add and hook_del exportable.

Browse Source
This commit is contained in:
Elijah Perrault committed 2011-01-29 15:02:22 -07:00
1 parent 3a2687a4be
commit ce58dbe132
1 file changed
+6 -6
Download Patch File Download Diff File Expand all files Collapse all files
src/API/Std.pm
+6 -6
View File
@@ -10,7 +10,7 @@ use Exporter;
our (%LANGE, %MODULE, %EVENTS, %HOOKS, %CMDS); our (%LANGE, %MODULE, %EVENTS, %HOOKS, %CMDS);
our @ISA = qw(Exporter); 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. # Initialize a module.
@@ -172,9 +172,9 @@ sub hook_add
{ {
my ($event, $name, $sub) = @_; my ($event, $name, $sub) = @_;
unless (defined $HOOKS{lc($name)}) { unless (defined $API::Std::HOOKS{lc($name)}) {
if (defined $EVENTS{lc($event)}) { if (defined $API::Std::EVENTS{lc($event)}) {
$HOOKS{lc($event)}{lc($name)} = $sub; $API::Std::HOOKS{lc($event)}{lc($name)} = $sub;
return 1; return 1;
} }
else { else {
@@ -191,8 +191,8 @@ sub hook_del
{ {
my ($event, $name) = @_; my ($event, $name) = @_;
if (defined $HOOKS{lc($event)}{lc($name)}) { if (defined $API::Std::HOOKS{lc($event)}{lc($name)}) {
delete $HOOKS{lc($event)}{lc($name)}; delete $API::Std::HOOKS{lc($event)}{lc($name)};
return 1; return 1;
} }
else { else {