Mercurial > hg > nginx-tests

comparison lib/Test/Nginx/IMAP.pm @ 1824:5d3aee48ed8e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: style.
author Maxim Dounin <mdounin@mdounin.ru>
date Tue, 21 Mar 2023 02:57:20 +0300
parents e7f0b4ca0a1a
children 3629eda94c1b
comparison
equal deleted inserted replaced
1823:1e1d0f3874b0 1824:5d3aee48ed8e
64 $self->{_read_buffer} = $2; 64 $self->{_read_buffer} = $2;
65 return $1; 65 return $1;
66 } 66 }
67 67
68 while (IO::Select->new($socket)->can_read(8)) { 68 while (IO::Select->new($socket)->can_read(8)) {
69 $socket->blocking(0); 69 $socket->blocking(0);
70 my $n = $socket->sysread(my $buf, 1024); 70 my $n = $socket->sysread(my $buf, 1024);
71 $socket->blocking(1); 71 $socket->blocking(1);
72 last unless $n; 72 last unless $n;
73 73
74 $self->{_read_buffer} .= $buf; 74 $self->{_read_buffer} .= $buf;
75 75
76 if ($self->{_read_buffer} =~ /^(.*?\x0a)(.*)/ms) { 76 if ($self->{_read_buffer} =~ /^(.*?\x0a)(.*)/ms) {