Adding the failure diagnostic

[p5sagit/p5-mst-13.2.git] / t / op / utf8decode.t

diff --git a/t/op/utf8decode.t b/t/op/utf8decode.t
index 824805d..cc2b26a 100644 (file)
--- a/t/op/utf8decode.t
+++ b/t/op/utf8decode.t
@@ -3,19 +3,19 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
-
 }
 
 {
     my $wide = v256;
     use bytes;
-    print STDERR ord($wide),"\n";
-    if (ord($wide) == 140) {
+    my $ordwide = ord($wide);
+    printf "# under use bytes ord(v256) = 0x%02x\n", $ordwide;
+    if ($ordwide == 140) {
        print "1..0 # Skip: UTF-EBCDIC (not UTF-8) used here\n";
        exit 0;
     }
-    elsif (ord($wide) != 196) {
-       warn sprintf("v256 starts with %02X\n",ord($wide));
+    elsif ($ordwide != 196) {
+       printf "# v256 starts with 0x%02x\n", $ordwide;
     }
 }