Tests: unbreak mail tests in case of EOF.
author |
Sergey Kandaurov <pluknet@nginx.com> |
date |
Tue, 21 Mar 2017 17:38:37 +0300 |
parents |
ccf134a800ae |
children |
8241ebbe753d |
files |
mail_capability.t mail_pop3.t |
diffstat |
2 files changed, 4 insertions(+), 2 deletions(-)
[+]
|
line diff
--- a/mail_capability.t Tue Mar 21 15:42:21 2017 +0300
+++ b/mail_capability.t Tue Mar 21 17:38:37 2017 +0300
@@ -234,7 +234,8 @@
my ($s) = @_;
my @meth;
- while ($s->read() !~ qr/^\./) {
+ while ($s->read()) {
+ last if /^\./;
push @meth, $1 if /(.*?)\x0d\x0a?/ms;
}
join ':', @meth;
--- a/mail_pop3.t Tue Mar 21 15:42:21 2017 +0300
+++ b/mail_pop3.t Tue Mar 21 17:38:37 2017 +0300
@@ -207,7 +207,8 @@
my ($s) = @_;
my @meth;
- while ($s->read() !~ qr/^\./) {
+ while ($s->read()) {
+ last if /^\./;
push @meth, $1 if /(.*?)\x0d\x0a?/ms;
}
join ':', @meth;