Improve perl suppressions accuracy

[perl/modules/Test-Valgrind.git] / t / 80-suppressions.t

diff --git a/t/80-suppressions.t b/t/80-suppressions.t
index a57aca3a08a26831cc25d53d1626b6f2f2e18149..ba6056cae573f6a78260de22790c8f5f0ebaae03 100644 (file)
--- 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/;
     }
    }
   }