X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=clearadm%2Flib%2FClearexec.pm;h=410a94e6b4be777d03ea48a33a32f7f05ac0157a;hb=ed7943b5913aae90452e00009a19aaa86605b820;hp=27371c9267faa2a7c66c0e1b7245f9584e3603c7;hpb=4c24c2eea11a8cc408126ab1da3bfd08ff2232de;p=clearscm.git

diff --git a/clearadm/lib/Clearexec.pm b/clearadm/lib/Clearexec.pm
index 27371c9..410a94e 100644
--- a/clearadm/lib/Clearexec.pm
+++ b/clearadm/lib/Clearexec.pm
@@ -38,7 +38,7 @@ The results are sent back as follows:
 
  Status: <status>
  <command output>
- 
+
 This allows the caller to determine if the command execution was successful as
 well as capture the commands output.
 
@@ -282,7 +282,7 @@ sub _serviceClient ($$) {
       $self->_debug ("Status: $status");
     } # if
 
-    print $client "$_\n" foreach (@output);
+    print $client "$_\n" for (@output);
     print $client "Clearexec Status: $status\n";
 
     $self->_debug ("Looping around for next command");
@@ -319,7 +319,7 @@ sub startServer (;$) {
 
   while () {
     $client = $self->{socket}->accept;
-    
+
     if ($? == -1) {
       if ($!{EINTR}) {
         next;
@@ -394,7 +394,7 @@ L<Net::hostent|Net::hostent>
 
 =head2 ClearSCM Perl Modules
 
-=begin man 
+=begin man
 
  DateUtils
  Display