]> git.vpit.fr Git - perl/modules/Test-Valgrind.git/commitdiff
Make Suppressions->strip_tail remove multiple ellipsis
authorVincent Pit <vince@profvince.com>
Tue, 3 Nov 2009 20:58:33 +0000 (21:58 +0100)
committerVincent Pit <vince@profvince.com>
Tue, 3 Nov 2009 20:58:33 +0000 (21:58 +0100)
lib/Test/Valgrind/Suppressions.pm

index fde934c050948e0a047b554664483b029364c1e7..3af3a9847631fb3025c7857709b2f4a0ff77287e 100644 (file)
@@ -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;
 }