X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FTest%2FValgrind.pm;h=29e88580d63def80614a37f1a01c4b5f612ff21d;hb=5c09f4538508635bd3f0e7b26bdccf07b01e98ef;hp=dd367da5b55646e4820bafdebb0e35a08714a5b3;hpb=db13282b745dfe28c52272c092ff4b9be81fc487;p=perl%2Fmodules%2FTest-Valgrind.git 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) {