This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Storable: Restore 5.6 compatibility
authorFather Chrysostomos <sprout@cpan.org>
Mon, 11 Jul 2011 20:25:35 +0000 (13:25 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 11 Jul 2011 20:25:35 +0000 (13:25 -0700)
dist/Storable/Storable.xs

index 5ad1556..8ce0bec 100644 (file)
@@ -2294,7 +2294,7 @@ static int store_hash(pTHX_ stcxt_t *cxt, HV *hv)
 #ifdef HAS_RESTRICTED_HASHES
             HvTOTALKEYS(hv);
 #else
-            HvUSEDKEYS(hv);
+            HvKEYS(hv); /* Not HvUSEDKEYS, as 5.6 lacketh it */
 #endif
        I32 i;
        int ret = 0;