Commit | Line | Data |
599cee73 |
1 | regexec.c |
2 | |
0f4592ef |
3 | This test generates "bad free" warnings when run under |
4 | PERL_DESTRUCT_LEVEL. This file merely serves as a placeholder |
5 | for investigation. |
6 | |
90ba36ed |
7 | Complex regular subexpression recursion limit (%d) exceeded |
599cee73 |
8 | |
9 | $_ = 'a' x (2**15+1); /^()(a\1)*$/ ; |
90ba36ed |
10 | Complex regular subexpression recursion limit (%d) exceeded |
599cee73 |
11 | |
12 | $_ = 'a' x (2**15+1); /^()(a\1)*?$/ ; |
13 | |
90ba36ed |
14 | (The actual value substituted for %d is masked in the tests so that |
15 | REG_INFTY configuration variable value does not affect outcome.) |
599cee73 |
16 | __END__ |
17 | # regexec.c |
0f4592ef |
18 | print("SKIPPED\n# most systems run into stacksize limits\n"),exit; |
599cee73 |
19 | use warning 'unsafe' ; |
90ba36ed |
20 | $SIG{__WARN__} = sub{local ($m) = shift; |
21 | $m =~ s/\(\d+\)/(*MASKED*)/; |
22 | print STDERR $m}; |
599cee73 |
23 | $_ = 'a' x (2**15+1); |
24 | /^()(a\1)*$/ ; |
d008e5eb |
25 | # |
26 | # If this test fails with a segmentation violation or similar, |
27 | # you may have to increase the default stacksize limit in your |
28 | # shell. You may need superuser privileges. |
29 | # |
30 | # Under the sh, ksh, zsh: |
31 | # $ ulimit -s |
32 | # 8192 |
33 | # $ ulimit -s 16000 |
34 | # |
35 | # Under the csh: |
36 | # % limit stacksize |
37 | # stacksize 8192 kbytes |
38 | # % limit stacksize 16000 |
39 | # |
599cee73 |
40 | EXPECT |
90ba36ed |
41 | Complex regular subexpression recursion limit (*MASKED*) exceeded at - line 9. |
599cee73 |
42 | ######## |
43 | # regexec.c |
0f4592ef |
44 | print("SKIPPED\n# most systems run into stacksize limits\n"),exit; |
599cee73 |
45 | use warning 'unsafe' ; |
90ba36ed |
46 | $SIG{__WARN__} = sub{local ($m) = shift; |
47 | $m =~ s/\(\d+\)/(*MASKED*)/; |
48 | print STDERR $m}; |
599cee73 |
49 | $_ = 'a' x (2**15+1); |
50 | /^()(a\1)*?$/ ; |
d008e5eb |
51 | # |
52 | # If this test fails with a segmentation violation or similar, |
53 | # you may have to increase the default stacksize limit in your |
54 | # shell. You may need superuser privileges. |
55 | # |
56 | # Under the sh, ksh, zsh: |
57 | # $ ulimit -s |
58 | # 8192 |
59 | # $ ulimit -s 16000 |
60 | # |
61 | # Under the csh: |
62 | # % limit stacksize |
63 | # stacksize 8192 kbytes |
64 | # % limit stacksize 16000 |
65 | # |
599cee73 |
66 | EXPECT |
90ba36ed |
67 | Complex regular subexpression recursion limit (*MASKED*) exceeded at - line 9. |