diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-05-07 05:52:02 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-05-07 05:52:02 +0000 |
| commit | dfcb284a2bcae98854733134f50bc110c487b8a3 (patch) | |
| tree | 428b48563b3b3587755397ccae421386758ce16c /t | |
| parent | 7f66633bd788f56bb4e77473ec86f45e8cc0614b (diff) | |
| download | perl-dfcb284a2bcae98854733134f50bc110c487b8a3.tar.gz | |
repeat operator (x) doesn't preserve utf8-ness
p4raw-id: //depot/perl@6085
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/substr.t | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/t/op/substr.t b/t/op/substr.t index 6180acc402..a67eae56ac 100755 --- a/t/op/substr.t +++ b/t/op/substr.t @@ -275,8 +275,9 @@ ok 125, $a eq 'xxxxefgh'; ok 126, length($x) eq 3; $x = substr($x,1,1); ok 127, $x eq "\x{263a}"; - ok 128, length($x) eq 1; + $x = $x x 2; + ok 128, length($x) eq 2; substr($x,0,1) = "abcd"; - ok 129, $x eq "abcd"; - ok 130, length($x) eq 4; + ok 129, $x eq "abcd\x{263a}"; + ok 130, length($x) eq 5; } |