X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FTest-Valgrind.git;a=blobdiff_plain;f=lib%2FTest%2FValgrind%2FSuppressions.pm;h=3af3a9847631fb3025c7857709b2f4a0ff77287e;hp=fde934c050948e0a047b554664483b029364c1e7;hb=07e9c71f216de121217542e294a3f4a2a2896919;hpb=a3ad5e451c03ec48ca43d1d2f7761c07490b9d65

diff --git a/lib/Test/Valgrind/Suppressions.pm b/lib/Test/Valgrind/Suppressions.pm
index fde934c..3af3a98 100644
--- 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;
 }