projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
5ea3115
)
Move the flag checking for isGV_with_GP() into the call to visit()
author
Nicholas Clark
<nick@ccl4.org>
Thu, 18 Jan 2007 23:36:57 +0000
(23:36 +0000)
committer
Nicholas Clark
<nick@ccl4.org>
Thu, 18 Jan 2007 23:36:57 +0000
(23:36 +0000)
p4raw-id: //depot/perl@29876
sv.c
patch
|
blob
|
history
diff --git
a/sv.c
b/sv.c
index
b602dda
..
bbf758f
100644
(file)
--- a/
sv.c
+++ b/
sv.c
@@
-471,7
+471,8
@@
do_clean_named_objs(pTHX_ SV *sv)
{
dVAR;
assert(SvTYPE(sv) == SVt_PVGV);
- if (isGV_with_GP(sv) && GvGP(sv)) {
+ assert(isGV_with_GP(sv));
+ if (GvGP(sv)) {
if ((
#ifdef PERL_DONT_CREATE_GVSV
GvSV(sv) &&
@@
-506,7
+507,7
@@
Perl_sv_clean_objs(pTHX)
visit(do_clean_objs, SVf_ROK, SVf_ROK);
#ifndef DISABLE_DESTRUCTOR_KLUDGE
/* some barnacles may yet remain, clinging to typeglobs */
- visit(do_clean_named_objs, SVt_PVGV
, SVTYPEMASK
);
+ visit(do_clean_named_objs, SVt_PVGV
|SVpgv_GP, SVTYPEMASK|SVp_POK|SVpgv_GP
);
#endif
PL_in_clean_objs = FALSE;
}