From f776e3cd68509957cc5ab2967a78fb0ad213d8aa Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Tue, 20 Dec 2005 13:39:01 +0000 Subject: gv_fetchpv, gv_fetchpvn and gv_fetchsv take a bitmask of flags, rather than a simple boolean, so passing FALSE or TRUE is bogus. p4raw-id: //depot/perl@26415 --- mg.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'mg.c') diff --git a/mg.c b/mg.c index 80b762ce8e..0857395bd1 100644 --- a/mg.c +++ b/mg.c @@ -1847,7 +1847,7 @@ Perl_magic_setglob(pTHX_ SV *sv, MAGIC *mg) if (!SvOK(sv)) return 0; - gv = gv_fetchsv(sv,TRUE, SVt_PVGV); + gv = gv_fetchsv(sv, GV_ADD, SVt_PVGV); if (sv == (SV*)gv) return 0; if (GvGP(sv)) @@ -2307,12 +2307,12 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) case '^': Safefree(IoTOP_NAME(GvIOp(PL_defoutgv))); s = IoTOP_NAME(GvIOp(PL_defoutgv)) = savesvpv(sv); - IoTOP_GV(GvIOp(PL_defoutgv)) = gv_fetchsv(sv,TRUE, SVt_PVIO); + IoTOP_GV(GvIOp(PL_defoutgv)) = gv_fetchsv(sv, GV_ADD, SVt_PVIO); break; case '~': Safefree(IoFMT_NAME(GvIOp(PL_defoutgv))); s = IoFMT_NAME(GvIOp(PL_defoutgv)) = savesvpv(sv); - IoFMT_GV(GvIOp(PL_defoutgv)) = gv_fetchsv(sv,TRUE, SVt_PVIO); + IoFMT_GV(GvIOp(PL_defoutgv)) = gv_fetchsv(sv, GV_ADD, SVt_PVIO); break; case '=': IoPAGE_LEN(GvIOp(PL_defoutgv)) = (SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv)); -- cgit v1.2.1