summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Devel/Peek.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Devel/Peek.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Devel/Peek.pm43
1 files changed, 20 insertions, 23 deletions
diff --git a/Master/tlpkg/tlperl/lib/Devel/Peek.pm b/Master/tlpkg/tlperl/lib/Devel/Peek.pm
index 3d790e763ad..bd56b86a60c 100644
--- a/Master/tlpkg/tlperl/lib/Devel/Peek.pm
+++ b/Master/tlpkg/tlperl/lib/Devel/Peek.pm
@@ -3,7 +3,7 @@
package Devel::Peek;
-$VERSION = '1.27';
+$VERSION = '1.28';
$XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
@@ -411,28 +411,25 @@ The following shows the raw form of a reference to a hash.
The output:
- SV = IV(0x8177858) at 0x816a618
- REFCNT = 1
- FLAGS = (ROK)
- RV = 0x814fc10
- SV = PVHV(0x8167768) at 0x814fc10
- REFCNT = 1
- FLAGS = (SHAREKEYS)
- ARRAY = 0x816c5b8 (0:7, 1:1)
- hash quality = 100.0%
- KEYS = 1
- FILL = 1
- MAX = 7
- RITER = -1
- EITER = 0x0
- Elt "hello" HASH = 0xc8fd181b
- SV = IV(0x816c030) at 0x814fcf4
- REFCNT = 1
- FLAGS = (IOK,pIOK)
- IV = 42
-
-This shows C<$a> is a reference pointing to an SV. That SV is a PVHV, a
-hash. Fields RITER and EITER are used by C<L<perlfunc/each>>.
+ SV = IV(0x55cb50b50fb0) at 0x55cb50b50fc0
+ REFCNT = 1
+ FLAGS = (ROK)
+ RV = 0x55cb50b2b758
+ SV = PVHV(0x55cb50b319c0) at 0x55cb50b2b758
+ REFCNT = 1
+ FLAGS = (SHAREKEYS)
+ ARRAY = 0x55cb50b941a0 (0:7, 1:1)
+ hash quality = 100.0%
+ KEYS = 1
+ FILL = 1
+ MAX = 7
+ Elt "hello" HASH = 0x3128ece4
+ SV = IV(0x55cb50b464f8) at 0x55cb50b46508
+ REFCNT = 1
+ FLAGS = (IOK,pIOK)
+ IV = 42
+
+This shows C<$a> is a reference pointing to an SV. That SV is a PVHV, a hash.
The "quality" of a hash is defined as the total number of comparisons needed
to access every element once, relative to the expected number needed for a