Skip to content

Commit

Permalink
also handle "MESA:" messages
Browse files Browse the repository at this point in the history
  • Loading branch information
mohawk2 committed Sep 28, 2024
1 parent 8003540 commit 183eb8f
Showing 1 changed file with 3 additions and 4 deletions.
7 changes: 3 additions & 4 deletions lib/PDL/Graphics/Gnuplot.pm
Original file line number Diff line number Diff line change
Expand Up @@ -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";
Expand Down Expand Up @@ -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) {
Expand All @@ -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);
}
Expand Down

0 comments on commit 183eb8f

Please sign in to comment.