Fix SocketFactory states coderef acceptance

rcaputo · Dec 29, 1999 · 625ada8 · 625ada8
1 parent 2328449
commit 625ada8
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/lib/POE/Wheel/SocketFactory.pm b/lib/POE/Wheel/SocketFactory.pm
@@ -240,9 +240,6 @@ sub new {
     unless (exists $params{'SocketType'});
 
   my $self = bless { }, $type;
-  $self->event( SuccessState => $params{'SuccessState'},
-                FailureState => $params{'FailureState'},
-              );
   my $socket_handle = gensym;
 
   my ($socket_domain, $socket_type, $success_event, $failure_event)
@@ -483,6 +480,10 @@ sub new {
     croak 'unsupported SocketDomain';
   }
 
+  $self->event( SuccessState => $params{'SuccessState'},
+                FailureState => $params{'FailureState'},
+              );
+
   $self;
 }