t/pragma/warn/doop

   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 BEGIN {
  16     if (ord("\t") == 5) {
  17         print "SKIPPED\n# Character codes differ on ebcdic machines.";
  18         exit 0;
  19     }
  20 }
  21 use warnings 'utf8'  ;
  22 use utf8 ;
  23 $_ = "\x80  \xff" ;
  24 chop ;
  25 no warnings 'utf8'  ;
  26 $_ = "\x80  \xff" ;
  27 chop ;
  28 EXPECT
  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.