And that same fool forgot to add the not-really-needed "fuzzy" versions

[perl5.git] / lib / utf8.t

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");
 }