Remove 'trailing spaces' to satisfy some authors

Somebody needs to fex Test::EOL to accept indentation leading whitespace

Author: Theo van Hoesel

t/content_length.t

@@ -18,7 +18,7 @@ my $BASE_URL;
 my @TESTS = get_tests();
 
 for my $test (@TESTS) {
-    
+
     my $http_daemon = HTTP::Daemon->new() or die "HTTP::Daemon->new: $!";
     $BASE_URL = $http_daemon->url;
 
@@ -27,18 +27,18 @@ for my $test (@TESTS) {
     if ($pid == 0) {
         accept_requests($http_daemon);
     }
-    
+
     my $resp = http_test_request($test);
-    
+
     ok $resp, $test->{title};
-    
+
     is $resp->{status}, $test->{status},
         "... and has expected status";
-    
+
     like $resp->{content}, $test->{like},
         "... and body does match"
         if $test->{like};
-    
+
 }
 
 done_testing;
@@ -150,16 +150,16 @@ sub router_table {
                 return $resp;
             },
         },
-        
+
         '/' => {
             'POST' => sub {
                 my $rqst = shift;
-                
+
                 my $body = $rqst->content();
-                
+
                 my $resp = HTTP::Response->new(200);
                 $resp->content($body);
-                
+
                 return $resp
             },
         },
@@ -240,39 +240,39 @@ sub http_test_request {
 
 
 sub patch_http_tiny {
-    
+
     # we need to patch write_content_body
     # this is part of HTTP::Tiny internal module HTTP::Tiny::Handle
     #
     # the below code is from the original HTTP::Tiny module, where just two lines
     # have been commented out
-    
+
     no strict 'refs';
-    
+
     *HTTP::Tiny::Handle::write_content_body = sub {
         @_ == 2 || die(q/Usage: $handle->write_content_body(request)/ . "\n");
         my ($self, $request) = @_;
-        
+
         my ($len, $content_length) = (0, $request->{headers}{'content-length'});
         while () {
             my $data = $request->{cb}->();
-            
+
             defined $data && length $data
                 or last;
-            
+
             if ( $] ge '5.008' ) {
                 utf8::downgrade($data, 1)
                     or die(qq/Wide character in write_content()\n/);
             }
-            
+
             $len += $self->write($data);
         }
-        
+
 #       this should not be checked during our tests, we want to forge bad requests
-#       
+#
 #       $len == $content_length
 #           or die(qq/Content-Length mismatch (got: $len expected: $content_length)\n/);
-        
+
         return $len;
     };
 }