diff options
| author | Yves Orton <demerphq@gmail.com> | 2013-05-07 13:20:34 +0200 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2013-05-07 13:20:34 +0200 |
| commit | 36dc22073c0c9dbad0f19f957f6a520e21a4a4fa (patch) | |
| tree | 44984be116589b0b19b7d20dde4c73867b085598 | |
| parent | 4950784de8a40c6d83ebf86e563b1de2e1c32c18 (diff) | |
| download | perl-36dc22073c0c9dbad0f19f957f6a520e21a4a4fa.tar.gz | |
hoping this works finally. gcc is too permissive with my build options
| -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 f40d1e25fa..2758d69047 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))) { - HV *hv = SvRV(rhv); + HV *hv = (HV *)SvRV(rhv); if (items>1) { hv_rand_set(hv, SvUV(ST(1))); } |