From 183eb8f300668dfe9e1d2845c8a4e879e9bb2502 Mon Sep 17 00:00:00 2001
From: Ed J <mohawk2@users.noreply.github.com>
Date: Sat, 28 Sep 2024 02:49:53 +0000
Subject: [PATCH] also handle "MESA:" messages

---
 lib/PDL/Graphics/Gnuplot.pm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/lib/PDL/Graphics/Gnuplot.pm b/lib/PDL/Graphics/Gnuplot.pm
index 6381280..a78daa2 100644
--- a/lib/PDL/Graphics/Gnuplot.pm
+++ b/lib/PDL/Graphics/Gnuplot.pm
@@ -7470,8 +7470,7 @@ sub _printGnuplotPipe
 # are explicitly stripped out
 our $cp_serial = 0;
 
-my $qt_re = qr/^qt\..*/m;
-my $xtype_re = qr/^XType:.*/m;
+my $graphics_re = qr/^(?:qt\.|XType:|MESA:).*/m;
 sub _checkpoint {
     my $this   = shift;
     my $suffix = shift || "main";
@@ -7604,7 +7603,7 @@ EOM
     # that some warnings come with a line specifier and others don't.
 
   WARN: while( $fromerr =~ m/^(\s*(line \d+\:\s*)?[wW]arning\:.*)$/m or
-	       $fromerr =~ m/$xtype_re|$qt_re/ or
+	       $fromerr =~ m/$graphics_re/ or
 	       $fromerr =~ m/^Populating font family aliases took/m     # CED - Quicktime on MacOS Catalina throws a warning marked as an error.  Stupid.
 	) {
       if ($2) {
@@ -7614,7 +7613,7 @@ EOM
 	  $a =~ s/^\s*line \d+\:/Gnuplot:/m;
 	  carp $a if($printwarnings);
       } else {
-	  $fromerr =~ s/$xtype_re|$qt_re//;
+	  $fromerr =~ s/$graphics_re//;
 	  last WARN unless $fromerr =~ s/^(\s*(line \d+\:\s*)?[wW](arning\:.*(\n|$)))//m;
 	  carp "Gnuplot w$3\n" if($printwarnings);
       }