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 {