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

  doop.c	AOK

  Malformed UTF-8 character


__END__
# doop.c
use utf8 ;
$_ = "\x80  \xff" ;
chop ;
EXPECT
Malformed UTF-8 character at - line 4.
########
# doop.c
use warning 'utf8'  ;
use utf8 ;
$_ = "\x80  \xff" ;
chop ;
no warning 'utf8'  ;
$_ = "\x80  \xff" ;
chop ;
EXPECT
\x80 will produce malformed UTF-8 character; use \x{80} for that at - line 4.
\xff will produce malformed UTF-8 character; use \x{ff} for that at - line 4.
Malformed UTF-8 character at - line 5.
Commit	Line	Data
0453d815	1	doop.c AOK
	2
	3	Malformed UTF-8 character
	4
	5
	6	__END__
	7	# doop.c
	8	use utf8 ;
	9	$_ = "\x80 \xff" ;
	10	chop ;
	11	EXPECT
	12	Malformed UTF-8 character at - line 4.
	13	########
	14	# doop.c
	15	use warning 'utf8' ;
	16	use utf8 ;
	17	$_ = "\x80 \xff" ;
	18	chop ;
	19	no warning 'utf8' ;
	20	$_ = "\x80 \xff" ;
	21	chop ;
	22	EXPECT
	23	\x80 will produce malformed UTF-8 character; use \x{80} for that at - line 4.
	24	\xff will produce malformed UTF-8 character; use \x{ff} for that at - line 4.
	25	Malformed UTF-8 character at - line 5.