Perl 5.38 permanently stops reading a file after it has seen EOF.

Call clearerr() to continously receive log file from remote machine
while grepping for test patterns.

diff --git a/regress/sys/net/pf_divert/LICENSE b/regress/sys/net/pf_divert/LICENSE
index 52b2516..7c75656 100644 (file)
--- a/regress/sys/net/pf_divert/LICENSE
+++ b/regress/sys/net/pf_divert/LICENSE
@@ -1,4 +1,4 @@
-# Copyright (c) 2010-2017 Alexander Bluhm <bluhm@openbsd.org>
+# Copyright (c) 2010-2024 Alexander Bluhm <bluhm@openbsd.org>
 #
 # Permission to use, copy, modify, and distribute this software for any
 # purpose with or without fee is hereby granted, provided that the above

diff --git a/regress/sys/net/pf_divert/remote.pl b/regress/sys/net/pf_divert/remote.pl
index a32330f..7d07943 100644 (file)
--- a/regress/sys/net/pf_divert/remote.pl
+++ b/regress/sys/net/pf_divert/remote.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
-#      $OpenBSD: remote.pl,v 1.9 2017/12/18 17:01:27 bluhm Exp $
+#      $OpenBSD: remote.pl,v 1.10 2024/06/08 22:50:40 bluhm Exp $
 
-# Copyright (c) 2010-2015 Alexander Bluhm <bluhm@openbsd.org>
+# Copyright (c) 2010-2024 Alexander Bluhm <bluhm@openbsd.org>
 #
 # Permission to use, copy, modify, and distribute this software for any
 # purpose with or without fee is hereby granted, provided that the above
@@ -272,4 +272,5 @@ sub copy_prefix {
                chomp;
                print $dst "$prefix: $_\n" if length;
        }
+       $src->clearerr();
 }