[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
BEGIN {
    if (ord("\t") == 5) {
        print "SKIPPED\n# Character codes differ on ebcdic machines.";
        exit 0;
    }
}
use warnings 'utf8'  ;
use utf8 ;
$_ = "\x80  \xff" ;
chop ;
no warnings 'utf8'  ;
$_ = "\x80  \xff" ;
chop ;
EXPECT
\x80 will produce malformed UTF-8 character; use \x{80} for that at - line 10.
\xff will produce malformed UTF-8 character; use \x{ff} for that at - line 10.
Malformed UTF-8 character at - line 11.
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
146174a9	15	BEGIN {
	16	if (ord("\t") == 5) {
	17	print "SKIPPED\n# Character codes differ on ebcdic machines.";
	18	exit 0;
	19	}
	20	}
4438c4b7	21	use warnings 'utf8' ;
0453d815	22	use utf8 ;
	23	$_ = "\x80 \xff" ;
	24	chop ;
4438c4b7	25	no warnings 'utf8' ;
0453d815	26	$_ = "\x80 \xff" ;
	27	chop ;
	28	EXPECT
146174a9	29	\x80 will produce malformed UTF-8 character; use \x{80} for that at - line 10.
	30	\xff will produce malformed UTF-8 character; use \x{ff} for that at - line 10.
	31	Malformed UTF-8 character at - line 11.