diff options
| author | Nicholas Clark <nick@ccl4.org> | 2003-08-09 00:30:00 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-09 06:53:54 +0000 |
| commit | 8feb939da516c1f4b1a0292b977ca2a2d1189527 (patch) | |
| tree | d651d5720815b5a1085a86aa7ea7b0f9ba26ae13 | |
| parent | 92c5661913e77e7dfc71bc155a9ce023fc6d9699 (diff) | |
| download | perl-8feb939da516c1f4b1a0292b977ca2a2d1189527.tar.gz | |
Re: [PATCH] Re: Storing &PL_sv_undef as a hash key with perl-5.8.x
Message-ID: <20030808233000.B20130@plum.flirble.org>
p4raw-id: //depot/perl@20571
| -rw-r--r-- | ext/Storable/Storable.xs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs index 1bf09c15b6..b714b17562 100644 --- a/ext/Storable/Storable.xs +++ b/ext/Storable/Storable.xs @@ -1237,13 +1237,13 @@ static void clean_store_context(stcxt_t *cxt) if (cxt->hseen) { hv_iterinit(cxt->hseen); while ((he = hv_iternext(cxt->hseen))) /* Extra () for -Wall, grr.. */ - HeVAL(he) = &PL_sv_placeholder; + HeVAL(he) = &PL_sv_undef; } if (cxt->hclass) { hv_iterinit(cxt->hclass); while ((he = hv_iternext(cxt->hclass))) /* Extra () for -Wall, grr.. */ - HeVAL(he) = &PL_sv_placeholder; + HeVAL(he) = &PL_sv_undef; } /* @@ -4929,7 +4929,7 @@ static SV *retrieve_flag_hash(stcxt_t *cxt, char *cname) */ #ifdef HAS_RESTRICTED_HASHES - if (hv_store_flags(hv, kbuf, size, sv, 0, flags) == 0) + if (hv_store_flags(hv, kbuf, size, sv, 0, store_flags) == 0) return (SV *) 0; #else if (!(store_flags & HVhek_PLACEHOLD)) |