From 68925a4d3a44dcd5dfaf669ca12c28a3944aeebe Mon Sep 17 00:00:00 2001 From: erickson Date: Thu, 29 Mar 2007 20:06:05 +0000 Subject: [PATCH] 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 --- OpenSRF/src/perlmods/OpenSRF/System.pm | 28 +--------------------------- 1 file changed, 1 insertion(+), 27 deletions(-) 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; -- 2.11.0