Some cosmetic edits

[clearscm.git] / clearadm / lib / Clearexec.pm

diff --git a/clearadm/lib/Clearexec.pm b/clearadm/lib/Clearexec.pm
index 27371c9..410a94e 100644 (file)
--- 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>
 
  Status: <status>
  <command output>

- 
+

 This allows the caller to determine if the command execution was successful as
 well as capture the commands 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
 
       $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");
     print $client "Clearexec Status: $status\n";
 
     $self->_debug ("Looping around for next command");


@@ -319,7 +319,7 @@ sub startServer (;$) {
 
   while () {
     $client = $self->{socket}->accept;
 
   while () {
     $client = $self->{socket}->accept;

-    
+

     if ($? == -1) {\r
       if ($!{EINTR}) {
         next;
     if ($? == -1) {\r
       if ($!{EINTR}) {
         next;


@@ -394,7 +394,7 @@ L<Net::hostent|Net::hostent>
 
 =head2 ClearSCM Perl Modules
 
 
 =head2 ClearSCM Perl Modules
 

-=begin man 
+=begin man

 
  DateUtils
  Display
 
  DateUtils
  Display