while (<$fh>) {
s/^\s*#\s//; # Strip comments
- next if /^==/; # Valgrind info line
+ if (/^==/) { # Valgrind info line
+ if (/Signal 11 being dropped from thread/) {
+ # This might loop endlessly
+ return 1;
+ }
+ next;
+ }
s/^\s*//; # Strip leading spaces
s/<[^>]+>//; # Strip tags
kind => 'Suppression',
data => $_,
)) for @supps, @extra;
+
+ return 0;
}
=head1 SEE ALSO