X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FTest%2FValgrind%2FCommand%2FPerl.pm;h=1894b8d813feb8c1d16754df1aaf2521acafeaab;hb=90b6c795c9fab6343c3501923aacc8f43f7a82ea;hp=675210ee3bf404d1036ea09cafbe3e1e4c1119c8;hpb=1b06adb9788085e8aad3af42ea384153cd0a4fe6;p=perl%2Fmodules%2FTest-Valgrind.git

diff --git a/lib/Test/Valgrind/Command/Perl.pm b/lib/Test/Valgrind/Command/Perl.pm
index 675210e..1894b8d 100644
--- a/lib/Test/Valgrind/Command/Perl.pm
+++ b/lib/Test/Valgrind/Command/Perl.pm
@@ -9,11 +9,11 @@ Test::Valgrind::Command::Perl - A Test::Valgrind command that invokes perl.
 
 =head1 VERSION
 
-Version 1.02
+Version 1.12
 
 =cut
 
-our $VERSION = '1.02';
+our $VERSION = '1.12';
 
 =head1 DESCRIPTION
 
@@ -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
@@ -145,7 +147,7 @@ Returns an L<Env::Sanctify> object that sets the environment variables C<PERL_DE
 sub env {
  Env::Sanctify->sanctify(
   env => {
-   PERL_DESTRUCT_LEVEL => 2,
+   PERL_DESTRUCT_LEVEL => 3,
    PERL_DL_NONLAZY     => 1,
   },
  );
@@ -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,