From 579acc601aca295ee7b58ef399cf91a5af06d5b2 Mon Sep 17 00:00:00 2001
From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Mon, 15 Sep 2008 19:33:48 +0000
Subject: [PATCH] removed extra parens and unnecessary if test

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@1429 9efc2488-bf62-4759-914b-345cdb29e865
---
 bin/opensrf-perl.pl | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/bin/opensrf-perl.pl b/bin/opensrf-perl.pl
index 40b37dd..66c5d1b 100755
--- a/bin/opensrf-perl.pl
+++ b/bin/opensrf-perl.pl
@@ -87,10 +87,8 @@ sub do_init {
     if($apps) {
         $apps = [$apps] unless ref $apps;
         for my $app (@$apps) {
-            if($app eq $service) {
-                push(@hosted_services, $app) 
-                    if $sclient->config_value('apps', $app, 'language') =~ /perl/i);
-            }
+            push(@hosted_services, $app) 
+                if $sclient->config_value('apps', $app, 'language') =~ /perl/i;
         }
     }
 }
@@ -118,7 +116,7 @@ sub do_start {
 }
 
 sub do_start_all {
-    do_start('opensrf.settings') if grep {$_ eq 'opensrf.settings'} @hosted_services);
+    do_start('opensrf.settings') if grep {$_ eq 'opensrf.settings'} @hosted_services;
     for my $service (@hosted_services) {
         do_start($service) unless $service eq 'opensrf.settings';
     }
-- 
2.43.2