summaryrefslogtreecommitdiff
path: root/t/pragma/warn-regexec
blob: 3d9b566f3e2b965172a497e0ea11fd1e2dad187a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
  regexec.c	

  count exceeded %d

        $_ = 'a' x (2**15+1); /^()(a\1)*$/ ;
  count exceeded %d

        $_ = 'a' x (2**15+1); /^()(a\1)*?$/ ;

__END__
# regexec.c
use warning 'unsafe' ;
$_ = 'a' x (2**15+1); 
/^()(a\1)*$/ ;
EXPECT
count exceeded 32766 at - line 4.
########
# regexec.c
use warning 'unsafe' ;
$_ = 'a' x (2**15+1);
/^()(a\1)*?$/ ;
EXPECT
Complex regular subexpression recursion limit (32766) exceeded at - line 4.