From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 8 Aug 2003 23:30:00 +0000 (+0100)
Subject: Re: [PATCH] Re: Storing &PL_sv_undef as a hash key with perl-5.8.x
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=da5add9b468c40165d25db86107f2b7fccd71e90;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs
index 1bf09c1..b714b17 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))