# HG changeset patch
# User Eugene Grebenschikov <e.grebenshchikov@nginx.com>
# Date 1680624896 25200
# Node ID 1197c152215b640aef0bdd3c3072f686298347b3
# Parent  0351dee227a8341e442feeb03920a46b259adeb5
Tests: fixed warning in case of a closed stream.

diff --git a/lib/Test/Nginx/Stream.pm b/lib/Test/Nginx/Stream.pm
--- a/lib/Test/Nginx/Stream.pm
+++ b/lib/Test/Nginx/Stream.pm
@@ -65,8 +65,8 @@ sub write {
 	$s->blocking(0);
 	while (IO::Select->new($s)->can_write($extra{write_timeout} || 1.5)) {
 		my $n = $s->syswrite($message);
+		last unless $n;
 		log_out(substr($message, 0, $n));
-		last unless $n;
 
 		$message = substr($message, $n);
 		last unless length $message;