Undo qu. Retract #8814, rewrite op/each part of #8615,

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

diff --git a/t/op/length.t b/t/op/length.t
index aec6a52..df80fcd 100644 (file)
--- a/t/op/length.t
+++ b/t/op/length.t
@@ -33,8 +33,7 @@ print "ok 3\n";
 }
 
 {
-    use utf8; # make "\x{80}" to produce UTF-8
-    my $a = "\x{80}";
+    my $a = pack("U", 0x80);
     
     print "not " unless length($a) == 1;
     print "ok 6\n";