Make explicit our assumption that (for now) "\x{80}" produces UTF-8.
authorJarkko Hietaniemi <jhi@iki.fi>
Tue, 9 Jan 2001 14:32:17 +0000 (14:32 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 9 Jan 2001 14:32:17 +0000 (14:32 +0000)
p4raw-id: //depot/perl@8377

t/op/length.t

index ceb005e..aec6a52 100644 (file)
@@ -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;