Mercurial > hg > nginx-tests

comparison mail_capability.t @ 1151:57673c7257a3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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