From: Vincent Pit <vince@profvince.com>
Date: Mon, 25 Aug 2008 16:48:03 +0000 (+0200)
Subject: Use only 12 callers as default
X-Git-Tag: v0.05~6
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=5c09f4538508635bd3f0e7b26bdccf07b01e98ef;p=perl%2Fmodules%2FTest-Valgrind.git

Use only 12 callers as default
---

diff --git a/lib/Test/Valgrind.pm b/lib/Test/Valgrind.pm
index dd367da..29e8858 100644
--- a/lib/Test/Valgrind.pm
+++ b/lib/Test/Valgrind.pm
@@ -55,7 +55,7 @@ If true, do not use any suppressions.
 
 =item C<< callers => $number >>
 
-Specify the maximum stack depth studied when valgrind encounters an error. Raising this number improves granularity. Default is 50.
+Specify the maximum stack depth studied when valgrind encounters an error. Raising this number improves granularity. Default is 12.
 
 =item C<< extra => [ @args ] >>
 
@@ -88,7 +88,8 @@ sub import {
    $file = $next;
   }
   return if not $file or $file eq '-e';
-  my $callers = $args{callers} || 50;
+  my $callers = $args{callers};
+  $callers = 12 unless defined $callers;
   $callers = int $callers;
   my $vg = Test::Valgrind::Suppressions::VG_PATH;
   if (!$vg || !-x $vg) {