diff options
| author | Yves Orton <demerphq@gmail.com> | 2013-05-07 11:22:22 +0200 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2013-05-07 12:05:32 +0200 |
| commit | 42b49dd2b85336d203323f188bd9b68595ae105e (patch) | |
| tree | ea1b37c12fb3bafae6070d838942133282742245 /ext/Hash-Util | |
| parent | 43d4c9a308c81359ed863728413e5a22ead60c42 (diff) | |
| download | perl-42b49dd2b85336d203323f188bd9b68595ae105e.tar.gz | |
fix build issue with picky compilers
Diffstat (limited to 'ext/Hash-Util')
| -rw-r--r-- | ext/Hash-Util/Util.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Hash-Util/Util.xs b/ext/Hash-Util/Util.xs index 33bce41d96..f40d1e25fa 100644 --- a/ext/Hash-Util/Util.xs +++ b/ext/Hash-Util/Util.xs @@ -89,7 +89,7 @@ hash_traversal_mask(rhv, ...) { #ifdef PERL_HASH_RANDOMIZE_KEYS if (SvROK(rhv) && SvTYPE(SvRV(rhv))==SVt_PVHV && !SvMAGICAL(SvRV(rhv))) { - const HV * const hv = (const HV *) SvRV(rhv); + HV *hv = SvRV(rhv); if (items>1) { hv_rand_set(hv, SvUV(ST(1))); } |