t/pragma/warn/doop

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