Mercurial > hg > nginx-tests

comparison lib/Test/Nginx/Stream.pm @ 1852:1197c152215b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: fixed warning in case of a closed stream.
author Eugene Grebenschikov <e.grebenshchikov@nginx.com>
date Tue, 04 Apr 2023 09:14:56 -0700
parents 3629eda94c1b
children dbb7561a9441
comparison
equal deleted inserted replaced
1851:0351dee227a8 1852:1197c152215b
63 local $SIG{PIPE} = 'IGNORE'; 63 local $SIG{PIPE} = 'IGNORE';
64 64
65 $s->blocking(0); 65 $s->blocking(0);
66 while (IO::Select->new($s)->can_write($extra{write_timeout} || 1.5)) { 66 while (IO::Select->new($s)->can_write($extra{write_timeout} || 1.5)) {
67 my $n = $s->syswrite($message); 67 my $n = $s->syswrite($message);
68 last unless $n;
68 log_out(substr($message, 0, $n)); 69 log_out(substr($message, 0, $n));
69 last unless $n;
70 70
71 $message = substr($message, $n); 71 $message = substr($message, $n);
72 last unless length $message; 72 last unless length $message;
73 } 73 }
74 74