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 4e0b354..49e83f0 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; }
       }