Hash::Util::FieldHash fix_trigger can pre-size the hash before use.

This is only called by CLONE (and hence only matters for ithreads), but it's an improvement, and small and self-contained.
Perl · Aug 23, 2021 · 10b6fcc · 10b6fcc
1 parent 009b864
commit 10b6fcc
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/ext/Hash-Util-FieldHash/FieldHash.xs b/ext/Hash-Util-FieldHash/FieldHash.xs
@@ -289,7 +289,8 @@ HUF_fix_trigger(pTHX_ SV *trigger, SV *new_id) {
     HV* new_tab = newHV();
     HE* ent;
     SV* old_id = *av_fetch(cont, 0, 0);
-    hv_iterinit(field_tab);
+    I32 entries = hv_iterinit(field_tab);
+    hv_ksplit(new_tab, entries);
     while ((ent = hv_iternext(field_tab))) {
         SV* field_ref = HeVAL(ent);
         HV* field = (HV*)SvRV(field_ref);

diff --git a/ext/Hash-Util-FieldHash/lib/Hash/Util/FieldHash.pm b/ext/Hash-Util-FieldHash/lib/Hash/Util/FieldHash.pm
@@ -1,11 +1,10 @@
 package Hash::Util::FieldHash;
 
-use 5.009004;
 use strict;
 use warnings;
 use Scalar::Util qw( reftype);
 
-our $VERSION = '1.22';
+our $VERSION = '1.23';
 
 use Exporter 'import';
 our %EXPORT_TAGS = (