Make explicit our assumption that (for now) "\x{80}" produces UTF-8.

p4raw-id: //depot/perl@8377

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