From 1f773d5246e52534e586a9eace73a7b150f85d6e Mon Sep 17 00:00:00 2001 From: bluhm Date: Sat, 8 Jun 2024 22:50:40 +0000 Subject: [PATCH] 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. --- regress/sys/net/pf_divert/LICENSE | 2 +- regress/sys/net/pf_divert/remote.pl | 5 +++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/regress/sys/net/pf_divert/LICENSE b/regress/sys/net/pf_divert/LICENSE index 52b251631b7..7c756569627 100644 --- a/regress/sys/net/pf_divert/LICENSE +++ b/regress/sys/net/pf_divert/LICENSE @@ -1,4 +1,4 @@ -# Copyright (c) 2010-2017 Alexander Bluhm +# Copyright (c) 2010-2024 Alexander Bluhm # # 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 a32330f5366..7d0794315b0 100644 --- 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 +# Copyright (c) 2010-2024 Alexander Bluhm # # 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(); } -- 2.20.1