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