summaryrefslogtreecommitdiff
path: root/hv.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2003-04-17 18:26:24 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2003-04-17 18:26:24 +0000
commitefb84706da56dd3c296f6c57d802413bc6289b55 (patch)
treeaefff5baa99c9040fa774fdd5f952a23cf895a62 /hv.c
parent88af3bc300e3389a4424556c4c736ce8f586a0b9 (diff)
downloadperl-efb84706da56dd3c296f6c57d802413bc6289b55.tar.gz
Integrate:
[ 19194] Darwin/Rhapsody hints files updates by Wilfredo Sánchez [ 19198] The lib/ipc_sysv.t test has a new name. [ 19199] Because we chdir to 'Big-Dummy' the lib/utf8.pm may be at ../../lib for the lc() at line 66 (UTF-8 data possible if using UTF-8 locales). [ 19200] Fix bug #15893 by creating shared scalars with a refcount of 1 instead of 2 and make push and pop increase the refcount. [ 19201] Fix bug #16253, use all the CPU that we can :-) [ 19202] Subject: [PATCH] vms/vms.c waitpid tweak From: "Craig A. Berry" <craigberry@mac.com> Date: Mon, 14 Apr 2003 00:43:00 -0500 Message-ID: <3E9A4A64.6030205@mac.com> [ 19206] More docs about running tests and the test suite. Update perlhack.pod in various places. Add 'test_harness' as a .PHONY dependency in the Makefile. [ 19207] Document and test autovivified dirhandles. Subject: [perl #21952] [patch] t/op/readdir.t and perlfunc.pod From: Nathan Torkington (via RT) <perlbug-followup@perl.org> Date: 12 Apr 2003 12:40:45 -0000 Message-Id: <rt-21952-55079.8.08945458828887@bugs6.perl.org> [ 19210] Subject: Re: Parse::RecDescent triggers infinete loop in perl5.9.0 and 5.8.1 [perl #17757] From: Inaba Hiroto <inaba@st.rim.or.jp> Date: Fri, 21 Mar 2003 17:35:21 +0900 Message-ID: <3E7ACEC8.E0D57221@st.rim.or.jp> Date: Sat, 22 Mar 2003 11:28:05 +0900 Message-ID: <3E7BCA34.6824269F@st.rim.or.jp> [ 19211] Mention that "make test_harness" lets messages sent through standard error out. Complements change #19206. [ 19212] Fixes to bugs introduced by PL_stashcache A) Follow suggestion by Benjamin Goldberg to use hv_delete instead of hv_delete_ent to avoid creating a temporary SV B) Don't increment the refcount, sneak it into an IV instead C) When a GP is a deleted that contains a stash, remove the corresponding entry since hv might be in use in other places. D) Note that no test cases test the deletion of packages to catch this bug. [ 19213] Ook, run tests on correct build-dir next time. We must check if the hv is a stash, otherwise we try to delete something that is a HvNAME of null..... tests pass better now [ 19214] [perl #21845] "proto.h": 'id' is a reserved word in Objective-C. [ 19215] Add a test for [perl #17753]. [ 19226] Upgrade to Pod::LaTeX 0.55. [ 19227] [#17040] Storable now handles self-tied scalars with NULL mg_obj. [ 19236] Document the effect of thread creation context. [ 19238] A -C parsed from the #! line can still have line endings in it. [ 19240] Fix double join problem for those places where free actually means free (solaris for example :) Fixes bug #16681 [ 19245] Document that the open pragma does not affect the three-headed hydra, ummm, open. [ 19247] Subject: Re: [perl #21950] 5.8.x -- :scalar and magic strings From: Enache Adrian <enache@rdslink.ro> Date: Thu, 17 Apr 2003 14:35:36 +0300 Message-Id: <20030417113536.GA898@ratsnest.hole> [ 19252] [#21962] Speculative fix: don't set GvNAMELEN to 1 if GvNAME is "". Anything that's broken by this change should be fixed. [ 19254] Extreme Voodoo programming, by not pinching the SV if it is a PADTMP it happily keeps it's value later on! p4raw-link: @19254 on //depot/perl: 5e6160dc45a74849468013747b2649ba17c9faab p4raw-link: @19252 on //depot/perl: d2e84f4c6d50974396b5eb49a584da41841a6138 p4raw-link: @19247 on //depot/perl: c5b94a97fd82571950babee90bae3a327a5936a9 p4raw-link: @19245 on //depot/perl: 164794897687cae4b298b3efb3ed2d20c601262b p4raw-link: @19240 on //depot/perl: 57b48062fe99a8eadb0b080a32b9197986647f56 p4raw-link: @19238 on //depot/perl: 7c91f47780c6b4923bae37d60b9019a6a770cdf2 p4raw-link: @19236 on //depot/perl: 93512b4d15d43ee30046264838aa178b66495d31 p4raw-link: @19227 on //depot/perl: 72edffd8c9be795e5b3d054712ab905abfc441f0 p4raw-link: @19226 on //depot/perl: 7e2c3868e4a7eef3080ba50609c91634f388dd28 p4raw-link: @19215 on //depot/perl: 3d387947bbc471534dd539356ce327ed107dc003 p4raw-link: @19214 on //depot/perl: 88d95a4d17f786d117305f530290cdd81b2df059 p4raw-link: @19213 on //depot/perl: 7765e7d69cf35e43ee75927d578a7a2a3e585151 p4raw-link: @19212 on //depot/perl: 7e8961ecc77ac069ddd54d220ef48fd89f1122d6 p4raw-link: @19211 on //depot/perl: 00bf5cd963bef6a3dffb6f796fe06e66184d13f0 p4raw-link: @19210 on //depot/perl: 7ef91622a9e34f97a4166311297799ae9bd8c402 p4raw-link: @19207 on //depot/perl: a28cd5c9762e7188f862844ca6b6674b912f33f8 p4raw-link: @19206 on //depot/perl: 244d9cb7d1d2e3a6aaa13f677e17b42673b10de9 p4raw-link: @19202 on //depot/perl: 119586db753fab6875f9973c20a57e0d66dbfbcf p4raw-link: @19201 on //depot/perl: 47cb5ff94030e4ad02be93d8c9632645ac553a43 p4raw-link: @19200 on //depot/perl: b0cd0593e12bb665e072c6e288a3346d6ef18489 p4raw-link: @19199 on //depot/perl: 50192506c5310399dad9670da57170bc37fe4abb p4raw-link: @19198 on //depot/perl: 11906ba08fed929f780ea3e503eb89c0955fb2d8 p4raw-link: @19194 on //depot/perl: 835bc3f3709faed7fcdc19f9e1d8703aa21e0355 p4raw-id: //depot/maint-5.8/perl@19256 p4raw-integrated: from //depot/perl@19238 'merge in' util.c (@18857..) p4raw-branched: from //depot/perl@19216 'branch in' lib/Pod/t/pod2latex.t p4raw-deleted: from //depot/perl@19216 'delete in' lib/Pod/t/latex.t (@18224..) p4raw-integrated: from //depot/perl@19216 'copy in' t/op/undef.t (@6874..) hints/rhapsody.sh (@11377..) lib/Pod/LaTeX.pm (@13159..) t/op/readdir.t (@16257..) t/README (@17403..) ext/threads/threads.pm (@17513..) ext/PerlIO/t/scalar.t (@17687..) lib/open.pm (@18555..) ext/threads/shared/shared.xs (@18593..) ext/PerlIO/scalar/scalar.xs (@18697..) ext/threads/t/join.t (@18759..) t/op/pat.t (@18859..) ext/Storable/Storable.xs pod/pod2latex.PL (@18904..) lib/ExtUtils/t/Install.t (@19099..) Makefile.SH (@19152..) ext/threads/threads.xs (@19201..) pod/perlhack.pod (@19206..) 'merge in' hints/darwin.sh (@18746..) embed.fnc (@19120..) pod/perlfunc.pod (@19140..) vms/vms.c (@19143..) MANIFEST (@19203..) sv.c (@19242..) p4raw-integrated: from //depot/perl@19214 'merge in' proto.h (@19010..) op.c (@19197..) p4raw-integrated: from //depot/perl@19213 'edit in' gv.c (@19212..) p4raw-integrated: from //depot/perl@19212 'merge in' hv.c (@19133..) pp_hot.c (@19134..) p4raw-integrated: from //depot/perl@19210 'merge in' regexec.c (@18858..) p4raw-integrated: from //depot/perl@19198 'copy in' INSTALL (@18874..)
Diffstat (limited to 'hv.c')
-rw-r--r--hv.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/hv.c b/hv.c
index e245198288..634e6809ef 100644
--- a/hv.c
+++ b/hv.c
@@ -1729,8 +1729,8 @@ Perl_hv_undef(pTHX_ HV *hv)
hfreeentries(hv);
Safefree(xhv->xhv_array /* HvARRAY(hv) */);
if (HvNAME(hv)) {
- if(PL_stashcache)
- hv_delete_ent(PL_stashcache, sv_2mortal(newSVpv(HvNAME(hv),0)), G_DISCARD, 0);
+ if(PL_stashcache)
+ hv_delete(PL_stashcache, HvNAME(hv), strlen(HvNAME(hv)), G_DISCARD);
Safefree(HvNAME(hv));
HvNAME(hv) = 0;
}