[Opensrf-commits] r1429 - trunk/bin

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-09-15 15:33:48 -0400 (Mon, 15 Sep 2008)
New Revision: 1429

Modified:
   trunk/bin/opensrf-perl.pl
Log:
removed extra parens and unnecessary if test

Modified: trunk/bin/opensrf-perl.pl
===================================================================
--- trunk/bin/opensrf-perl.pl	2008-09-15 16:47:20 UTC (rev 1428)
+++ trunk/bin/opensrf-perl.pl	2008-09-15 19:33:48 UTC (rev 1429)
@@ -87,10 +87,8 @@
     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_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';
     }