Mercurial > hg > nginx-tests
comparison mail_pop3.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 | 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 |