From d0c6cc2204f23ab022bb4448971e5ea2b205214d Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 29 Mar 2021 17:55:09 -0700
Subject: [PATCH] filter out nuisance lines from testing output

---
 dev-bin/perltidy_random_run.pl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/dev-bin/perltidy_random_run.pl b/dev-bin/perltidy_random_run.pl
index 878a2cbb..5b474e60 100755
--- a/dev-bin/perltidy_random_run.pl
+++ b/dev-bin/perltidy_random_run.pl
@@ -209,8 +209,10 @@ for ( my $nf = $nf_beg ; $nf <= $nf_end ; $nf++ ) {
           "$hash>Run '$nf.$np' : profile='$profile', ifile='$ifile'\n";
 
         if ( -e $tmperr ) { unlink $tmperr }
+
         #my $cmd = "$binfile <$ifile >$ofile -pro=$profile 2>$tmperr";
-        my $cmd = "$binfile <$ifile >$ofile -pro=$profile $append_flags 2>$tmperr";
+        my $cmd =
+          "$binfile <$ifile >$ofile -pro=$profile $append_flags 2>$tmperr";
         system_echo( $cmd, $hash );
         my $efile   = "perltidy.ERR";
         my $logfile = "perltidy.LOG";
@@ -513,7 +515,7 @@ if (@saved_for_deletion) {
 }
 
 # Summarize results..
-if (@problems || @blinkers) {
+if ( @problems || @blinkers ) {
     print STDERR <<EOM;
 
 $hash =============================
@@ -736,6 +738,8 @@ my $nlines=@lines;
 foreach my $line (@lines) {
     $lno++;
     next if ($line =~ /^#/);
+    next if ($line =~ /Unicode non-character/);
+    next if ($line =~ /does not map to utf8/);
 
     if (   $line =~ /uninitialized/
         || $line =~ /undefined/
-- 
2.39.5