From 726128aef6c6fd4021f9e7bf1565cdb956dacbb2 Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Mon, 9 May 2005 13:49:40 +0000
Subject: [PATCH] Fixed typo in post_loop_callback name

git-svn-id: https://svn.perl.org/qpsmtpd/branches/high_perf@414 958fd67b-6ff1-0310-b445-bb7760255be9
---
 lib/Danga/Socket.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Danga/Socket.pm b/lib/Danga/Socket.pm
index bb4de76..21f2d4a 100644
--- a/lib/Danga/Socket.pm
+++ b/lib/Danga/Socket.pm
@@ -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 {