bin/disorder-notify: Stop reading when we reach end-of-file.
authorMark Wooding <mdw@distorted.org.uk>
Wed, 10 Jun 2020 15:05:16 +0000 (16:05 +0100)
committerMark Wooding <mdw@distorted.org.uk>
Wed, 10 Jun 2020 15:05:16 +0000 (16:05 +0100)
Just a stupid bug.

bin/disorder-notify

index 4e0b354..49e83f0 100755 (executable)
@@ -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; }
       }