bin/disorder-notify: Stop reading when we reach end-of-file.

[profile] / bin / disorder-notify

diff --git a/bin/disorder-notify b/bin/disorder-notify
index 4e0b354068b4429f20be1f1837e3d1f5f375612b..49e83f0ba5745879ebac88f7a04b1bdf64da8747 100755 (executable)
--- a/bin/disorder-notify
+++ b/bin/disorder-notify
@@ -239,7 +239,7 @@ sub watch_and_notify0 ($) {
        eval { $n = sysread $sk_log, $b, 4096; };
        if ($@ && $@->errno == EAGAIN) { last READ; }
        elsif ($@) { $loss = "error from read: " . $@->errno; last WATCH; }
-       elsif (!$n) { close $sk_log; $sk_log = undef; }
+       elsif (!$n) { close $sk_log; $sk_log = undef; last READ; }
        else { $buffer .= $b; }
       }