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

  doop.c	AOK

  \x%s will produce malformed UTF-8 character; use \x{%s} for that


__END__
# doop.c
use utf8 ;
$_ = "\x80  \xff" ;
chop ;
EXPECT
########
# 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.
Commit	Line	Data
0453d815	1	doop.c AOK
0453d815	2
7e2040f0	3	\x%s will produce malformed UTF-8 character; use \x{%s} for that
0453d815	4
	5
	6	__END__
	7	# doop.c
	8	use utf8 ;
	9	$_ = "\x80 \xff" ;
	10	chop ;
	11	EXPECT
0453d815	12	########
0453d815	13	# doop.c
59af8754	14	BEGIN {
	15	if (ord("\t") == 5) {
	16	print "SKIPPED\n# Character codes differ on ebcdic machines.";
	17	exit 0;
	18	}
	19	}
4438c4b7	20	use warnings 'utf8' ;
0453d815	21	use utf8 ;
	22	$_ = "\x80 \xff" ;
	23	chop ;
4438c4b7	24	no warnings 'utf8' ;
0453d815	25	$_ = "\x80 \xff" ;
	26	chop ;
	27	EXPECT
dc26be07	28	\x80 will produce malformed UTF-8 character; use \x{80} for that at - line 10.
dc26be07	29	\xff will produce malformed UTF-8 character; use \x{ff} for that at - line 10.