summaryrefslogtreecommitdiff
path: root/gv.c
diff options
context:
space:
mode:
authorMike Guy <mjtg@cam.ac.uk>2000-09-01 15:16:01 +0100
committerJarkko Hietaniemi <jhi@iki.fi>2000-09-01 13:47:54 +0000
commitfd345fa8ff2d2c9d4bea826848c63a12821897de (patch)
treee205bcdef783f4f944bf684ce1841ef4197f67c3 /gv.c
parentc4d24d4c39d926df3531cb26fe44cea326bfa244 (diff)
downloadperl-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
Diffstat (limited to 'gv.c')
-rw-r--r--gv.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/gv.c b/gv.c
index 8cf40c78ae..3787f1b83a 100644
--- a/gv.c
+++ b/gv.c
@@ -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);