filter out nuisance lines from testing output

diff --git a/dev-bin/perltidy_random_run.pl b/dev-bin/perltidy_random_run.pl
index 878a2cbb18345e56e4f37c03b747d1345157c7f4..5b474e6095a93634d91a3856dad4bad89d71ddf1 100755 (executable)
--- 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/