diff options
| author | Mike Guy <mjtg@cam.ac.uk> | 2000-09-01 15:16:01 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-09-01 13:47:54 +0000 |
| commit | fd345fa8ff2d2c9d4bea826848c63a12821897de (patch) | |
| tree | e205bcdef783f4f944bf684ce1841ef4197f67c3 | |
| parent | c4d24d4c39d926df3531cb26fe44cea326bfa244 (diff) | |
| download | perl-fd345fa8ff2d2c9d4bea826848c63a12821897de.tar.gz | |
Part of the solution.
Subject: Re: [ID 20000807.004] [PATCH] conditional breakpoints leak memory
Message-Id: <E13Uqfp-0006dN-00@draco.cus.cam.ac.uk>
p4raw-id: //depot/perl@6967
| -rw-r--r-- | gv.c | 6 | ||||
| -rw-r--r-- | mg.c | 3 |
2 files changed, 5 insertions, 4 deletions
@@ -75,7 +75,7 @@ Perl_gv_fetchfile(pTHX_ const char *name) gv_init(gv, PL_defstash, tmpbuf, tmplen, FALSE); sv_setpv(GvSV(gv), name); if (PERLDB_LINE) - hv_magic(GvHVn(gv_AVadd(gv)), gv, 'L'); + hv_magic(GvHVn(gv_AVadd(gv)), Nullgv, 'L'); } if (tmpbuf != smallbuf) Safefree(tmpbuf); @@ -735,7 +735,7 @@ Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, I32 sv_type) if (strEQ(name, "OVERLOAD")) { HV* hv = GvHVn(gv); GvMULTI_on(gv); - hv_magic(hv, gv, 'A'); + hv_magic(hv, Nullgv, 'A'); } break; case 'S': @@ -749,7 +749,7 @@ Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, I32 sv_type) } GvMULTI_on(gv); hv = GvHVn(gv); - hv_magic(hv, gv, 'S'); + hv_magic(hv, Nullgv, 'S'); for (i = 1; PL_sig_name[i]; i++) { SV ** init; init = hv_fetch(hv, PL_sig_name[i], strlen(PL_sig_name[i]), 1); @@ -292,7 +292,8 @@ Perl_mg_copy(pTHX_ SV *sv, SV *nsv, const char *key, I32 klen) for (mg = SvMAGIC(sv); mg; mg = mg->mg_moremagic) { if (isUPPER(mg->mg_type)) { sv_magic(nsv, - mg->mg_type == 'P' ? SvTIED_obj(sv, mg) : mg->mg_obj, + mg->mg_type == 'P' ? SvTIED_obj(sv, mg) : + (mg->mg_type == 'D' && mg->mg_obj) ? sv : mg->mg_obj, toLOWER(mg->mg_type), key, klen); count++; } |