diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-03-21 13:36:27 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-03-21 13:36:27 +0000 |
commit | ccc73c2d0898ebcd5a2c05619f03d0cfa6c60add (patch) | |
tree | b7af3a0fd12439bf82d99ae15e7cb0ecef7b07f9 /lib/utf8.t | |
parent | cc2578a46ad3ddc084ebf3cc2ad1490a957bdef0 (diff) | |
download | perl-ccc73c2d0898ebcd5a2c05619f03d0cfa6c60add.tar.gz |
I must be tired today.
p4raw-id: //depot/perl@22547
Diffstat (limited to 'lib/utf8.t')
-rw-r--r-- | lib/utf8.t | 6 |
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"); } |