From 3af2786342395d894201306bffc7b2ce7bc2f30a Mon Sep 17 00:00:00 2001 From: erickson Date: Fri, 4 Nov 2005 23:34:17 +0000 Subject: [PATCH] checking for perl in listener and unix children git-svn-id: svn://svn.open-ils.org/ILS/trunk@1965 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- OpenSRF/src/perlmods/OpenSRF/System.pm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/OpenSRF/src/perlmods/OpenSRF/System.pm b/OpenSRF/src/perlmods/OpenSRF/System.pm index c85d4a00e9..85f6e28af9 100644 --- a/OpenSRF/src/perlmods/OpenSRF/System.pm +++ b/OpenSRF/src/perlmods/OpenSRF/System.pm @@ -340,9 +340,8 @@ sub launch_unix { next unless $app; my $lang = $client->config_value( "apps", $app, "language"); - next unless $lang =~ /perl/i; - next unless $app ne "opensrf.settings"; + next if $app eq "opensrf.settings"; _log( " * Starting UnixServer for $app..." ); @@ -365,12 +364,14 @@ sub launch_unix { sub launch_listener { my( $self, $apps ) = @_; + my $client = OpenSRF::Utils::SettingsClient->new(); foreach my $app ( @$apps ) { - next unless defined($app); - - if( $app eq "opensrf.settings" ) { next; } + next unless $app; + my $lang = $client->config_value( "apps", $app, "language"); + next unless $lang =~ /perl/i; + next if $app eq "opensrf.settings"; _log( " * Starting Listener for $app..." ); -- 2.43.2