diff options
| author | Andreas König <a.koenig@mind.de> | 2002-04-22 14:08:48 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-24 02:03:08 +0000 |
| commit | 89afcb60a8aa0fcded9f2490166a9f2c4cb540f8 (patch) | |
| tree | 74d57c1632f7620552793c1b9ef3d677b48e16b0 /t | |
| parent | dd2bab0fb2e17ae44696734bb227a5e113986f34 (diff) | |
| download | perl-89afcb60a8aa0fcded9f2490166a9f2c4cb540f8.tar.gz | |
New UTF-8 surprise
Message-ID: <m38z7gjb9r.fsf@anima.de>
p4raw-id: //depot/perl@16124
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/subst.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/t/op/subst.t b/t/op/subst.t index e48a1b3c78..8b0a8b0ada 100755 --- a/t/op/subst.t +++ b/t/op/subst.t @@ -7,7 +7,7 @@ BEGIN { } require './test.pl'; -plan( tests => 88 ); +plan( tests => 89 ); $x = 'foo'; $_ = "x"; @@ -374,3 +374,8 @@ ok( $_ eq "C B" && $snum == 12 ); $r =~ s/[^\w\.]//g; is($l, $r, "use utf8"); } + +my $pv1 = my $pv2 = "Andreas J. K\303\266nig"; +$pv1 =~ s/A/\x{100}/; +substr($pv2,0,1) = "\x{100}"; +is($pv1, $pv2); |