Make Suppressions->strip_tail remove multiple ellipsis

[perl/modules/Test-Valgrind.git] / lib / Test / Valgrind / Suppressions.pm

diff --git a/lib/Test/Valgrind/Suppressions.pm b/lib/Test/Valgrind/Suppressions.pm
index fde934c050948e0a047b554664483b029364c1e7..3af3a9847631fb3025c7857709b2f4a0ff77287e 100644 (file)
--- a/lib/Test/Valgrind/Suppressions.pm
+++ b/lib/Test/Valgrind/Suppressions.pm
@@ -103,7 +103,10 @@ sub strip_tail {
 
  1 while $supp =~ s/[^\r\n]*:\s*\*\s*$//;
  # With valgrind 3.4.0, we can replace unknown series of frames by '...'
- $supp .= "...\n" if $sess->version ge '3.4.0';
+ if ($sess->version ge '3.4.0') {
+  1 while $supp =~ s/[^\r\n]*\.{3}\s*$//;
+  $supp .= "...\n";
+ }
 
  $supp;
 }