In perl.git, the branch blead has been updated <https://perl5.git.perl.org/perl.git/commitdiff/6096c8b5a857766814f7e67361965635283f2354?hp=165066cac59b320e6c349b893a5cc94cb9054011>
- Log ----------------------------------------------------------------- commit 6096c8b5a857766814f7e67361965635283f2354 Author: David Mitchell <[email protected]> Date: Sun Feb 24 12:53:20 2019 +0000 t/re/pat.t: avoid failing test under ASan ----------------------------------------------------------------------- Summary of changes: t/re/pat.t | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/t/re/pat.t b/t/re/pat.t index 28a717b676..8e9ad812f3 100644 --- a/t/re/pat.t +++ b/t/re/pat.t @@ -1467,7 +1467,17 @@ EOP # test that this is true for 1..100 # Note that this test causes the engine to recurse at runtime, and # hence use a lot of C stack. + + # Compiling for all 100 nested captures blows the stack under + # clang and ASan; reduce. + my $max_captures = $Config{ccflags} =~ /sanitize/ ? 20 : 100; + for my $i (1..100) { + if ($i > $max_captures) { + pass("skipping $i buffers under ASan aa"); + pass("skipping $i buffers under ASan aba"); + next; + } my $capture= "a"; $capture= "($capture)" for 1 .. $i; for my $mid ("","b") { -- Perl5 Master Repository
