[p5sagit/p5-mst-13.2.git] / t / pragma / warn-regexec

  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.
Commit	Line	Data
599cee73	1	regexec.c
	2
	3	count exceeded %d
	4
	5	$_ = 'a' x (2*15+1); /^()(a\1)$/ ;
	6	count exceeded %d
	7
	8	$_ = 'a' x (2*15+1); /^()(a\1)?$/ ;
	9
	10	__END__
	11	# regexec.c
	12	use warning 'unsafe' ;
	13	$_ = 'a' x (2**15+1);
	14	/^()(a\1)*$/ ;
	15	EXPECT
	16	count exceeded 32766 at - line 4.
	17	########
	18	# regexec.c
	19	use warning 'unsafe' ;
	20	$_ = 'a' x (2**15+1);
	21	/^()(a\1)*?$/ ;
	22	EXPECT
	23	Complex regular subexpression recursion limit (32766) exceeded at - line 4.