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

  regcomp.c	AOK

  %.*s matches null string many times   

	$a = "ABC123" ; $a =~ /(?=a)*/'

  Strange *+?{} on zero-length expression

	/(?=a)?/

  Character class syntax [. .] is reserved for future extensions
  Character class syntax [= =] is reserved for future extensions

__END__
# regcomp.c
use warning 'unsafe' ;
my $a = "ABC123" ; 
$a =~ /(?=a)*/ ;
no warning 'unsafe' ;
$a =~ /(?=a)*/ ;
EXPECT
(?=a)* matches null string many times at - line 4.
########
# regcomp.c
use warning 'unsafe' ;
$_ = "" ;
/(?=a)?/;
no warning 'unsafe' ;
/(?=a)?/;
EXPECT
Strange *+?{} on zero-length expression at - line 4.
########
# regcomp.c
use warning 'unsafe' ;
$_ = "" ;
/[:foo:]/;
/[.bar.]/;
/[=zog=]/;
no warning 'unsafe' ;
/[a[:foo:]b]/;
/[a[.bar.]b]/;
/[a[=zog=]b]/;
EXPECT
Character class syntax [: :] belongs inside character classes at - line 4.
Character class syntax [. .] belongs inside character classes at - line 5.
Character class syntax [. .] is reserved for future extensions at - line 5.
Character class syntax [= =] belongs inside character classes at - line 6.
Character class syntax [= =] is reserved for future extensions at - line 6.
Commit	Line	Data
599cee73	1	regcomp.c AOK
	2
	3	%.*s matches null string many times
	4
	5	$a = "ABC123" ; $a =~ /(?=a)*/'
	6
	7	Strange *+?{} on zero-length expression
	8
	9	/(?=a)?/
	10
599cee73	11	Character class syntax [. .] is reserved for future extensions
	12	Character class syntax [= =] is reserved for future extensions
	13
	14	__END__
	15	# regcomp.c
	16	use warning 'unsafe' ;
	17	my $a = "ABC123" ;
	18	$a =~ /(?=a)*/ ;
0453d815	19	no warning 'unsafe' ;
0453d815	20	$a =~ /(?=a)*/ ;
599cee73	21	EXPECT
	22	(?=a)* matches null string many times at - line 4.
	23	########
	24	# regcomp.c
	25	use warning 'unsafe' ;
	26	$_ = "" ;
	27	/(?=a)?/;
0453d815	28	no warning 'unsafe' ;
0453d815	29	/(?=a)?/;
599cee73	30	EXPECT
	31	Strange *+?{} on zero-length expression at - line 4.
	32	########
	33	# regcomp.c
	34	use warning 'unsafe' ;
	35	$_ = "" ;
b8c5462f	36	/[:foo:]/;
	37	/[.bar.]/;
	38	/[=zog=]/;
0453d815	39	no warning 'unsafe' ;
70c6d02e	40	/[a[:foo:]b]/;
	41	/[a[.bar.]b]/;
	42	/[a[=zog=]b]/;
599cee73	43	EXPECT
b8c5462f	44	Character class syntax [: :] belongs inside character classes at - line 4.
	45	Character class syntax [. .] belongs inside character classes at - line 5.
	46	Character class syntax [. .] is reserved for future extensions at - line 5.
	47	Character class syntax [= =] belongs inside character classes at - line 6.
	48	Character class syntax [= =] is reserved for future extensions at - line 6.