Mercurial > hg > nginx-tests
comparison mail_capability.t @ 1151:57673c7257a3
Tests: unbreak mail tests in case of EOF.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Tue, 21 Mar 2017 17:38:37 +0300 |
parents | 2634d0ef48d3 |
children | 0af58b78df35 |
comparison
equal
deleted
inserted
replaced
1150:ccf134a800ae | 1151:57673c7257a3 |
---|---|
232 | 232 |
233 sub get_auth_caps { | 233 sub get_auth_caps { |
234 my ($s) = @_; | 234 my ($s) = @_; |
235 my @meth; | 235 my @meth; |
236 | 236 |
237 while ($s->read() !~ qr/^\./) { | 237 while ($s->read()) { |
238 last if /^\./; | |
238 push @meth, $1 if /(.*?)\x0d\x0a?/ms; | 239 push @meth, $1 if /(.*?)\x0d\x0a?/ms; |
239 } | 240 } |
240 join ':', @meth; | 241 join ':', @meth; |
241 } | 242 } |
242 | 243 |