From: erickson Date: Thu, 29 Mar 2007 20:06:05 +0000 (+0000) Subject: removed some old code and the unnecessary select-as-sleep calls X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=68925a4d3a44dcd5dfaf669ca12c28a3944aeebe;p=Evergreen.git removed some old code and the unnecessary select-as-sleep calls git-svn-id: svn://svn.open-ils.org/ILS/trunk@7125 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- diff --git a/OpenSRF/src/perlmods/OpenSRF/System.pm b/OpenSRF/src/perlmods/OpenSRF/System.pm index c88324fdf0..6d152a725c 100644 --- a/OpenSRF/src/perlmods/OpenSRF/System.pm +++ b/OpenSRF/src/perlmods/OpenSRF/System.pm @@ -206,14 +206,12 @@ sub bootstrap { # --- Boot the Unix servers $self->launch_unix($apps); - - _sleep(); sleep 2; # --- Boot the listeners $self->launch_listener($apps); - _sleep(); + sleep 1; _log( " * System is ready..." ); @@ -400,27 +398,6 @@ sub launch_listener { } } -# ---------------------------------------------- - -=head comment -sub launch_shell { - - my $self = shift; - - my $pid = OpenSRF::Utils::safe_fork(); - - if( $pid ) { $self->pid_hash( $pid , _shell() ); } - else { - $0 = "System Shell"; - for( my $x = 0; $x != 10; $x++ ) { - eval _shell(); - if( ! $@ ) { last; } - } - exit; - } -} -=cut - # ---------------------------------------------- @@ -467,9 +444,6 @@ sub _log { # ---------------------------------------------- -sub _sleep { - select( undef, undef, undef, 0.3 ); -} 1;