This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
bump patchlevel; other minor fixes for clean build and test on
[perl5.git] / t / pragma / warn / regexec
1   regexec.c     
2
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
7   Complex regular subexpression recursion limit (%d) exceeded
8
9         $_ = 'a' x (2**15+1); /^()(a\1)*$/ ;
10   Complex regular subexpression recursion limit (%d) exceeded
11
12         $_ = 'a' x (2**15+1); /^()(a\1)*?$/ ;
13
14   (The actual value substituted for %d is masked in the tests so that
15   REG_INFTY configuration variable value does not affect outcome.)
16 __END__
17 # regexec.c
18 print("SKIPPED\n# most systems run into stacksize limits\n"),exit;
19 use warning 'unsafe' ;
20 $SIG{__WARN__} = sub{local ($m) = shift;
21                  $m =~ s/\(\d+\)/(*MASKED*)/;
22                  print STDERR $m};
23 $_ = 'a' x (2**15+1); 
24 /^()(a\1)*$/ ;
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 #
40 EXPECT
41 Complex regular subexpression recursion limit (*MASKED*) exceeded at - line 9.
42 ########
43 # regexec.c
44 print("SKIPPED\n# most systems run into stacksize limits\n"),exit;
45 use warning 'unsafe' ;
46 $SIG{__WARN__} = sub{local ($m) = shift;
47                  $m =~ s/\(\d+\)/(*MASKED*)/;
48                  print STDERR $m};
49 $_ = 'a' x (2**15+1);
50 /^()(a\1)*?$/ ;
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 #
66 EXPECT
67 Complex regular subexpression recursion limit (*MASKED*) exceeded at - line 9.