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:
Matt Sergeant 2005-05-09 13:49:40 +00:00
parent 8dad7435e5
commit 726128aef6

View File

@ -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 {