From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Fri, 4 Nov 2005 23:34:17 +0000 (+0000)
Subject: checking <language> for perl in listener and unix children
X-Git-Tag: osrf_rel_2_0_1~1304
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=efbe0e315c48ec30e0888b664de126c2c23806c1;p=OpenSRF.git

checking <language> for perl in listener and unix children


git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@569 9efc2488-bf62-4759-914b-345cdb29e865
---

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..." );