removed extra parens and unnecessary if test
authorerickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Mon, 15 Sep 2008 19:33:48 +0000 (19:33 +0000)
committererickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Mon, 15 Sep 2008 19:33:48 +0000 (19:33 +0000)
git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@1429 9efc2488-bf62-4759-914b-345cdb29e865

bin/opensrf-perl.pl

index 40b37dd..66c5d1b 100755 (executable)
@@ -87,10 +87,8 @@ sub do_init {
     if($apps) {
         $apps = [$apps] unless ref $apps;
         for my $app (@$apps) {
     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 {
 }
 
 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';
     }
     for my $service (@hosted_services) {
         do_start($service) unless $service eq 'opensrf.settings';
     }