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 ceb005e..df80fcd 100644 (file)
--- a/t/op/length.t
+++ b/t/op/length.t
@@ -33,7 +33,7 @@ print "ok 3\n";
 }
 
 {
-    my $a = "\x{80}";
+    my $a = pack("U", 0x80);
     
     print "not " unless length($a) == 1;
     print "ok 6\n";