Fixed typo in post_loop_callback name
git-svn-id: https://svn.perl.org/qpsmtpd/branches/high_perf@414 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
parent
8dad7435e5
commit
726128aef6
@ -801,10 +801,10 @@ sub SetPostLoopCallback {
|
||||
if(ref $class) {
|
||||
my Danga::Socket $self = $class;
|
||||
if( defined $ref && ref $ref eq 'CODE' ) {
|
||||
$self->{PostLoopCallback} = $ref;
|
||||
$self->{post_loop_callback} = $ref;
|
||||
}
|
||||
else {
|
||||
delete $self->{PostLoopCallback};
|
||||
delete $self->{post_loop_callback};
|
||||
}
|
||||
}
|
||||
else {
|
||||
|
Loading…
Reference in New Issue
Block a user