X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FTest-Valgrind.git;a=blobdiff_plain;f=t%2F80-suppressions.t;h=ba6056cae573f6a78260de22790c8f5f0ebaae03;hp=a57aca3a08a26831cc25d53d1626b6f2f2e18149;hb=a08a925178ff4a5e8a68dc9ecc21d50c67049939;hpb=139a661cde3aaf5fbf8883f35c0acaf77b8205ab

diff --git a/t/80-suppressions.t b/t/80-suppressions.t
index a57aca3..ba6056c 100644
--- a/t/80-suppressions.t
+++ b/t/80-suppressions.t
@@ -102,7 +102,8 @@ SKIP: {
      $in = 0;
     } else {
      ++$valid_frames if /^\s*fun:/;
-     ++$seen_perl    if /^\s*fun:Perl_/;
+     ++$seen_perl    if /^\s*fun:(Perl|S|XS)_/
+                     or /^\s*obj:.*perl/;
     }
    }
   }