diff options
author | SADAHIRO Tomoyuki <BQW10602@nifty.com> | 2004-03-22 00:19:22 +0900 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-03-21 13:18:01 +0000 |
commit | 06a4563224066c07e70fee61255fea3909c889cc (patch) | |
tree | d6682fb8ecb9856c756fff4f90d9837e4f9a022f /lib/utf8.t | |
parent | 0f20d7dff4791320a87fca61a4e4d4bb7344f44c (diff) | |
download | perl-06a4563224066c07e70fee61255fea3909c889cc.tar.gz |
Re: [perl #27803] perl crashes when utf8::upgrade($offsetOK_scalar)
Message-Id: <20040321151828.DAC6.BQW10602@nifty.com>
p4raw-id: //depot/perl@22545
Diffstat (limited to 'lib/utf8.t')
-rw-r--r-- | lib/utf8.t | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/lib/utf8.t b/lib/utf8.t index 90035e56b3..334a476c25 100644 --- a/lib/utf8.t +++ b/lib/utf8.t @@ -37,7 +37,7 @@ no utf8; # Ironic, no? # # -plan tests => 144; +plan tests => 145; { # bug id 20001009.001 @@ -415,3 +415,13 @@ SKIP: { like($@, qr/^Modification of a read-only value attempted/, "utf8::encode should refuse to touch read-only values"); } + +{ + my $a =3D "456\xb6"; + utf8::upgrade($a); + + my $b =3D "123456\xb6"; + $b =3D~ s/^...//; + utf8::upgrade($b); + is($b, $a, "utf8::upgrade OffsetOK"); +} |