X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FTest-Valgrind.git;a=blobdiff_plain;f=lib%2FTest%2FValgrind%2FCommand%2FPerl.pm;h=6dda0e8b9a604c88917ebfd20243b843ca730c68;hp=2a8e2a41286eaa54002c4d33b0342bb00a3fbd69;hb=a3ad5e451c03ec48ca43d1d2f7761c07490b9d65;hpb=ad65b4599d66c8cc26dedada4d994aa8faebfcd7

diff --git a/lib/Test/Valgrind/Command/Perl.pm b/lib/Test/Valgrind/Command/Perl.pm
index 2a8e2a4..6dda0e8 100644
--- a/lib/Test/Valgrind/Command/Perl.pm
+++ b/lib/Test/Valgrind/Command/Perl.pm
@@ -24,6 +24,8 @@ It handles the suppression generation and sets the main command-line flags.
 
 use Env::Sanctify ();
 
+use Test::Valgrind::Suppressions;
+
 use base qw/Test::Valgrind::Command Test::Valgrind::Carp/;
 
 =head1 METHODS
@@ -176,7 +178,8 @@ sub filter {
                 or not $report->isa('Test::Valgrind::Report::Suppressions');
 
  my $data = $report->data;
- $data =~ s/^[^\r\n]*\bPerl_runops_(?:standard|debug)\b.*//ms;
+ $data =~ s/[^\r\n]*\bPerl_runops_(?:standard|debug)\b.*//s;
+ $data = Test::Valgrind::Suppressions->strip_tail($session, $data);
 
  $report->new(
   id   => $report->id,