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 use warnings 'utf8'  ;
  16 use utf8 ;
  17 $_ = "\x80  \xff" ;
  18 chop ;
  19 no warnings '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.