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