I must be tired today.

p4raw-id: //depot/perl@22547

diff --git a/lib/utf8.t b/lib/utf8.t
index 334a476..576d90e 100644 (file)
--- a/lib/utf8.t
+++ b/lib/utf8.t
@@ -417,11 +417,11 @@ SKIP: {
 }
 
 {
-    my $a =3D "456\xb6";
+    my $a = "456\xb6";
     utf8::upgrade($a);
 
-    my $b =3D "123456\xb6";
-    $b =3D~ s/^...//;
+    my $b = "123456\xb6";
+    $b =~ s/^...//;
     utf8::upgrade($b);
     is($b, $a, "utf8::upgrade OffsetOK");
 }