From efbe0e315c48ec30e0888b664de126c2c23806c1 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/OpenSRF/trunk@569 9efc2488-bf62-4759-914b-345cdb29e865 --- src/perlmods/OpenSRF/System.pm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/src/perlmods/OpenSRF/System.pm b/src/perlmods/OpenSRF/System.pm index c85d4a0..85f6e28 100644 --- a/src/perlmods/OpenSRF/System.pm +++ b/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.11.0