X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=clearadm%2Fprocessrunning.pl;h=cca1d7c8f1918e256fba33882cc1e0faeb89443a;hb=3c28a301742e8f8cdd35825fd6ebe4f842a510c7;hp=c5a2a4f20fc7808c9fa48f5125be5fb9375b7cc7;hpb=cc7bfce480ad76a92d6c9e8c8bcb59295e099388;p=clearscm.git

diff --git a/clearadm/processrunning.pl b/clearadm/processrunning.pl
index c5a2a4f..cca1d7c 100755
--- a/clearadm/processrunning.pl
+++ b/clearadm/processrunning.pl
@@ -64,7 +64,7 @@ use Utils;
 my $VERSION  = '$Revision: 1.2 $';
   ($VERSION) = ($VERSION =~ /\$Revision: (.*) /);
   
-sub restart ($) {
+sub restart($) {
   my ($restart) = @_;
 
   my ($status, @output) = Execute "$restart 2>&1";
@@ -72,11 +72,11 @@ sub restart ($) {
   unless ($status) {
     display "Successfully executed restart option: $restart";
       
-    display $_ foreach (@output);
+    display $_ for (@output);
   } else {
     display "Unable to restart process using $restart (Status: $status)";
       
-    display $_ foreach (@output);
+    display $_ for (@output);
   } # unless
   
   return $status;
@@ -122,19 +122,15 @@ unless ($status) {
       . join ("\n", @output), $status;
 } # if
  
-foreach (@output) {
-  next
-    if /grep -i '$name'/;
-    
-  next
-    if /grep -i $name/;
-  
-  next
-    if /$FindBin::Script/;
+for (@output) {
+  next if /grep -i '$name'/;
+  next if /grep -i $name/;
+  next if /$FindBin::Script/;
     
   display "Found processes named $name";
+
   exit 0;
-} # foreach
+} # for
 
 display "Did not find any processes named $name";