Mercurial > hg > nginx-tests

comparison mail_pop3.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 766bcbb632ee
comparison
equal deleted inserted replaced
1150:ccf134a800ae 1151:57673c7257a3
205 205
206 sub get_auth_caps { 206 sub get_auth_caps {
207 my ($s) = @_; 207 my ($s) = @_;
208 my @meth; 208 my @meth;
209 209
210 while ($s->read() !~ qr/^\./) { 210 while ($s->read()) {
211 last if /^\./;
211 push @meth, $1 if /(.*?)\x0d\x0a?/ms; 212 push @meth, $1 if /(.*?)\x0d\x0a?/ms;
212 } 213 }
213 join ':', @meth; 214 join ':', @meth;
214 } 215 }
215 216