=head1 VERSION
-Version 1.11
+Version 1.12
=cut
-our $VERSION = '1.11';
+our $VERSION = '1.12';
=head1 DESCRIPTION
s/^\s*#\s//; # Strip comments
next if /^==/; # Valgrind info line
- next if /valgrind/; # and /\Q$file\E/;
s/^\s*//; # Strip leading spaces
s/<[^>]+>//; # Strip tags
$s = ''; # Reset the state
$in = 0;
} elsif ($in) { # We're inside a suppresion block
- $s .= "$_\n"; # Append the current line to the state
+ if (/^fun\s*:\s*(.*)/) {
+ # Sometimes valgrind seems to forget to Z-demangle the symbol names.
+ # Make sure it's done and append the result to the state.
+ my $sym = $1;
+ $s .= 'fun:' . Test::Valgrind::Suppressions->maybe_z_demangle($sym) . "\n";
+ } else {
+ $s .= "$_\n";
+ }
}
}
=head1 COPYRIGHT & LICENSE
-Copyright 2009 Vincent Pit, all rights reserved.
+Copyright 2009,2010 Vincent Pit, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.