comparison auth_basic.t @ 439:d5b541a8cf95

Tests: removed extra EOL in auth_basic.t requests. While here, fixed sloppy coding.
author Sergey Kandaurov <pluknet@nginx.com>
date Fri, 18 Jul 2014 13:22:58 +0400
parents a9621dbbd0d4
children 64f22e0aaab2
comparison
equal deleted inserted replaced
438:60888e2c3f5a 439:d5b541a8cf95
118 ############################################################################### 118 ###############################################################################
119 119
120 sub http_get_auth { 120 sub http_get_auth {
121 my ($url, $user, $password) = @_; 121 my ($url, $user, $password) = @_;
122 122
123 my $auth = encode_base64($user . ':' . $password); 123 my $auth = encode_base64($user . ':' . $password, '');
124 124
125 my $r = http(<<EOF); 125 return http(<<EOF);
126 GET $url HTTP/1.0 126 GET $url HTTP/1.0
127 Host: localhost 127 Host: localhost
128 Authorization: Basic $auth 128 Authorization: Basic $auth
129 129
130 EOF 130 EOF