Add missing negation in EINTR check

Perl-Toolchain-Gang · Aug 13, 2023 · 6eacd6c · 6eacd6c
1 parent 0b80f2c
commit 6eacd6c
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/Changes b/Changes
@@ -1,5 +1,7 @@
 Revision history for Test-Harness
 
+        - Add missing negation in EINTR check
+
 3.46  2023-07-30
         - Color the "ok"s as well.
         - Skip symlink tests on msys2

diff --git a/lib/TAP/Parser/Multiplexer.pm b/lib/TAP/Parser/Multiplexer.pm
@@ -134,7 +134,7 @@ sub _iter {
         until (@ready) {
             return unless $sel->count;
             @ready = $sel->can_read;
-            last if @ready || $!{EINTR};
+            last if @ready || !$!{EINTR};
         }
 
         my ( $h, $parser, $stash, @handles ) = @{ shift @ready };