summaryrefslogtreecommitdiff
path: root/lib/utf8.t
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2004-03-21 13:36:27 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2004-03-21 13:36:27 +0000
commitccc73c2d0898ebcd5a2c05619f03d0cfa6c60add (patch)
treeb7af3a0fd12439bf82d99ae15e7cb0ecef7b07f9 /lib/utf8.t
parentcc2578a46ad3ddc084ebf3cc2ad1490a957bdef0 (diff)
downloadperl-ccc73c2d0898ebcd5a2c05619f03d0cfa6c60add.tar.gz
I must be tired today.
p4raw-id: //depot/perl@22547
Diffstat (limited to 'lib/utf8.t')
-rw-r--r--lib/utf8.t6
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/utf8.t b/lib/utf8.t
index 334a476c25..576d90e5a8 100644
--- 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");
}