[svn:qpsmtpd] rev 414 - branches/high_perf/lib/Danga

[email protected] 9 May 2005 13:49:41 -0000
Newsgroups perl.cvs.qpsmtpd
Message-ID <[email protected]>
Author: msergeant
Date: Mon May  9 06:49:40 2005
New Revision: 414

Modified:
   branches/high_perf/lib/Danga/Socket.pm
Log:
Fixed typo in post_loop_callback name


Modified: branches/high_perf/lib/Danga/Socket.pm
==============================================================================
--- branches/high_perf/lib/Danga/Socket.pm	(original)
+++ branches/high_perf/lib/Danga/Socket.pm	Mon May  9 06:49:40 2005
@@ -801,10 +801,10 @@
     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 {