remove an extra _stop in child processes

rcaputo · Jul 25, 2001 · f5b82c0 · f5b82c0
1 parent 902abb0
commit f5b82c0
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/samples/preforkedserver.perl b/samples/preforkedserver.perl
@@ -126,8 +126,7 @@ sub new {
   my ($type, $processes) = @_;
   my $self = bless { }, $type;
 
-  POE::Session->new( $self,
-                     [ qw(_start _stop fork retry signal connection) ],
+  POE::Session->new( $self, [ qw(_start _stop fork retry signal connection) ],
                      # ARG0
                      [ $processes ]
                    );
@@ -283,7 +282,6 @@ sub connection {
   if ($heap->{'is a child'}) {
     if (++$heap->{connections} >= 1) {
       delete $heap->{wheel};
-      $kernel->yield('_stop');
     }
   }
 }