diff options
| author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2022-06-30 11:23:16 +0100 |
|---|---|---|
| committer | Paul Evans <leonerd@leonerd.org.uk> | 2022-07-02 23:00:28 +0100 |
| commit | 53083cad3a096a3b0c435d3fd0aac9f943d07419 (patch) | |
| tree | 5c470125d8acda2786383e998c70c455fb611aff /ext | |
| parent | 922562d10af7810210fc8afb3c3666e0b7d9594e (diff) | |
| download | perl-53083cad3a096a3b0c435d3fd0aac9f943d07419.tar.gz | |
Use HvHasAUX() rather than SvOOK() when operating on HVs
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Hash-Util/Util.xs | 2 | ||||
| -rw-r--r-- | ext/Hash-Util/lib/Hash/Util.pm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/ext/Hash-Util/Util.xs b/ext/Hash-Util/Util.xs index 4e49a095e3..b266f4a81c 100644 --- a/ext/Hash-Util/Util.xs +++ b/ext/Hash-Util/Util.xs @@ -115,7 +115,7 @@ hash_traversal_mask(rhv, ...) if (items>1) { hv_rand_set(hv, SvUV(ST(1))); } - if (SvOOK(hv)) { + if (HvHasAUX(hv)) { XSRETURN_UV(HvRAND_get(hv)); } else { XSRETURN_UNDEF; diff --git a/ext/Hash-Util/lib/Hash/Util.pm b/ext/Hash-Util/lib/Hash/Util.pm index 0b42922c96..f2c6df690e 100644 --- a/ext/Hash-Util/lib/Hash/Util.pm +++ b/ext/Hash-Util/lib/Hash/Util.pm @@ -42,7 +42,7 @@ our @EXPORT_OK = qw( BEGIN { # make sure all our XS routines are available early so their prototypes # are correctly applied in the following code. - our $VERSION = '0.28'; + our $VERSION = '0.29'; require XSLoader; XSLoader::load(); } |