From 238af31e4e26cc72128680a0ed0480b2b2c76175 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 9 Jan 2001 14:32:17 +0000
Subject: [PATCH] Make explicit our assumption that (for now) "\x{80}" produces
 UTF-8.

p4raw-id: //depot/perl@8377
---
 t/op/length.t | 1 +
 1 file changed, 1 insertion(+)

diff --git a/t/op/length.t b/t/op/length.t
index ceb005e..aec6a52 100644
--- 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;
-- 
2.7.4