byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Cache the hooks

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/branches/high_perf@418 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2005-05-12 22:08:37 +00:00
parent e743c5903c
commit 37c96a1773
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lib/Qpsmtpd.pm
View File

@ -122,9 +122,15 @@ sub _config_from_file {
return wantarray ? @config : $config[0]; return wantarray ? @config : $config[0];
} }
our $HOOKS;
sub load_plugins { sub load_plugins {
my $self = shift; my $self = shift;
if ($HOOKS) {
return $self->{hooks} = $HOOKS;
}
$self->log(LOGERROR, "Plugins already loaded") if $self->{hooks}; $self->log(LOGERROR, "Plugins already loaded") if $self->{hooks};
$self->{hooks} = {}; $self->{hooks} = {};
@ -135,6 +141,8 @@ sub load_plugins {
@plugins = $self->_load_plugins($dir, @plugins); @plugins = $self->_load_plugins($dir, @plugins);
$HOOKS = $self->{hooks};
return @plugins; return @plugins;
} }