Merge 5564a6c into 44e4059

Perl · Jun 9, 2021 · ba6d5c3 · ba6d5c3
2 parents 44e4059 + 5564a6c
commit ba6d5c3
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/t/op/dump.t b/t/op/dump.t
@@ -68,6 +68,9 @@ plan(2);
 # chdirred to /tmp, a 'no' won't find the pragma. Hence the fiddling with
 # $SIG{__WARN__}.
 
+SKIP: {
+    my $reason = "GH 18847: excessive writes to /var/log/messages on FreeBSD";
+    skip $reason, 2 if $^O eq 'freebsd';
 fresh_perl_like(<<'PROG', qr/\AA(?!B\z)/, {}, "plain dump quits");
 BEGIN {$SIG {__WARN__} = sub {1;}}
 ++$|;
@@ -101,6 +104,8 @@ else {
 }
 PROG
 
+} # END SKIP block
+
 END {
   chdir $start if defined $start;
 }