X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=clearadm%2Fprocessrunning.pl;h=cca1d7c8f1918e256fba33882cc1e0faeb89443a;hb=18385edca6c1b1d92351133ab2696c48a48b3f07;hp=3eabc4a0a9d9681d7470a8c33ae8f206ff709687;hpb=81cbd130706633b1c19ff59371c2ef61d80c562b;p=clearscm.git

diff --git a/clearadm/processrunning.pl b/clearadm/processrunning.pl
index 3eabc4a..cca1d7c 100755
--- a/clearadm/processrunning.pl
+++ b/clearadm/processrunning.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 
 =pod
 
@@ -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";
 
@@ -186,4 +182,4 @@ Please report problems to Andrew DeFaria <Andrew@ClearSCM.com>.
 
 Copyright (c) 2010, ClearSCM, Inc. All rights reserved.
 
-=cut
\ No newline at end of file
+=cut