diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-22 04:07:13 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-22 04:07:13 +0000 |
| commit | 574c8022b1fdc7312bf9a5af037c8f777b60b6db (patch) | |
| tree | 06b4317b44c20a0a8683822193a3359385f3c9bf /ext/Devel/Peek | |
| parent | 3fbcfac442ddabdaab668242ba16ca26c5edd56c (diff) | |
| download | perl-574c8022b1fdc7312bf9a5af037c8f777b60b6db.tar.gz | |
If Unicode keys are entered to a hash, a bit is turned on.
If the bit is on, when the keys are fetched from the hash
(%h, each %h, keys %h), the Unicodified versions of the keys
are returned if needed. This solution errs on the size of
over-Unicodifying, the old solution erred on the side of
under-Unicodifying. As long as the hash keys can be a mix
of byte and Unicode strings, a perfect fit is hard to come by.
p4raw-id: //depot/perl@15407
Diffstat (limited to 'ext/Devel/Peek')
| -rw-r--r-- | ext/Devel/Peek/Peek.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ext/Devel/Peek/Peek.t b/ext/Devel/Peek/Peek.t index bd42d93c58..f577369880 100644 --- a/ext/Devel/Peek/Peek.t +++ b/ext/Devel/Peek/Peek.t @@ -347,8 +347,8 @@ do_test(19, RV = $ADDR SV = PVHV\\($ADDR\\) at $ADDR REFCNT = 2 - FLAGS = \\(SHAREKEYS\\) - IV = 1 + FLAGS = \\(SHAREKEYS,UTF8\\) + UV = 1 NV = $FLOAT ARRAY = $ADDR \\(0:7, 1:1\\) hash quality = 100.0% @@ -373,8 +373,8 @@ do_test(19, RV = $ADDR SV = PVHV\\($ADDR\\) at $ADDR REFCNT = 2 - FLAGS = \\(SHAREKEYS\\) - IV = 1 + FLAGS = \\(SHAREKEYS,UTF8\\) + UV = 1 NV = 0 ARRAY = $ADDR \\(0:7, 1:1\\) hash quality = 100.0% |