diff options
| -rw-r--r-- | doio.c | 6 | ||||
| -rw-r--r-- | gv.c | 4 | ||||
| -rw-r--r-- | perl.c | 40 | ||||
| -rw-r--r-- | pp_ctl.c | 6 | ||||
| -rw-r--r-- | pp_sort.c | 4 | ||||
| -rw-r--r-- | util.c | 2 |
6 files changed, 31 insertions, 31 deletions
@@ -734,7 +734,7 @@ Perl_nextargv(pTHX_ register GV *gv) IO * const io = GvIOp(gv); if (!PL_argvoutgv) - PL_argvoutgv = gv_fetchpvs("ARGVOUT",TRUE,SVt_PVIO); + PL_argvoutgv = gv_fetchpvs("ARGVOUT",GV_ADD,SVt_PVIO); if (io && (IoFLAGS(io) & IOf_ARGV) && (IoFLAGS(io) & IOf_START)) { IoFLAGS(io) &= ~IOf_START; if (PL_inplace) { @@ -767,7 +767,7 @@ Perl_nextargv(pTHX_ register GV *gv) if (PL_inplace) { TAINT_PROPER("inplace open"); if (oldlen == 1 && *PL_oldname == '-') { - setdefout(gv_fetchpvs("STDOUT",TRUE,SVt_PVIO)); + setdefout(gv_fetchpvs("STDOUT",GV_ADD,SVt_PVIO)); return IoIFP(GvIOp(gv)); } #ifndef FLEXFILENAMES @@ -934,7 +934,7 @@ Perl_nextargv(pTHX_ register GV *gv) SvREFCNT_dec(oldout); return Nullfp; } - setdefout(gv_fetchpvs("STDOUT",TRUE,SVt_PVIO)); + setdefout(gv_fetchpvs("STDOUT",GV_ADD,SVt_PVIO)); } return Nullfp; } @@ -1267,10 +1267,10 @@ Perl_newIO(pTHX) SvOBJECT_on(io); /* Clear the stashcache because a new IO could overrule a package name */ hv_clear(PL_stashcache); - iogv = gv_fetchpvn_flags("FileHandle::", 12, 0, SVt_PVHV); + iogv = gv_fetchpvs("FileHandle::", 0, SVt_PVHV); /* unless exists($main::{FileHandle}) and defined(%main::FileHandle::) */ if (!(iogv && GvHV(iogv) && HvARRAY(GvHV(iogv)))) - iogv = gv_fetchpvn_flags("IO::Handle::", 12, TRUE, SVt_PVHV); + iogv = gv_fetchpvs("IO::Handle::", GV_ADD, SVt_PVHV); SvSTASH_set(io, (HV*)SvREFCNT_inc(GvHV(iogv))); return io; } @@ -1371,7 +1371,7 @@ S_procself_val(pTHX_ SV *sv, const char *arg0) STATIC void S_set_caret_X(pTHX) { dVAR; - GV* tmpgv = gv_fetchpvs("\030",TRUE, SVt_PV); /* $^X */ + GV* tmpgv = gv_fetchpvs("\030", GV_ADD, SVt_PV); /* $^X */ if (tmpgv) { #ifdef HAS_PROCSELFEXE S_procself_val(aTHX_ GvSV(tmpgv), PL_origargv[0]); @@ -2122,7 +2122,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit) (fp = IoOFP(io))) PerlIO_binmode(aTHX_ fp, IoTYPE(io), 0, ":utf8"); if ((PL_unicode & PERL_UNICODE_INOUT_FLAG) && - (sv = GvSV(gv_fetchpvs("\017PEN", TRUE, SVt_PV)))) { + (sv = GvSV(gv_fetchpvs("\017PEN", GV_ADD, SVt_PV)))) { U32 in = PL_unicode & PERL_UNICODE_IN_FLAG; U32 out = PL_unicode & PERL_UNICODE_OUT_FLAG; if (in) { @@ -2810,7 +2810,7 @@ Perl_require_pv(pTHX_ const char *pv) void Perl_magicname(pTHX_ const char *sym, const char *name, I32 namlen) { - register GV * const gv = gv_fetchpv(sym,TRUE, SVt_PV); + register GV * const gv = gv_fetchpv(sym, GV_ADD, SVt_PV); if (gv) sv_magic(GvSV(gv), (SV*)gv, PERL_MAGIC_sv, name, namlen); @@ -3461,7 +3461,7 @@ S_init_main_stash(pTHX) table, so it's a small saving to use it rather than allocate another 8 bytes. */ PL_curstname = newSVpvs_share("main"); - gv = gv_fetchpvs("main::",TRUE, SVt_PVHV); + gv = gv_fetchpvs("main::", GV_ADD, SVt_PVHV); /* If we hadn't caused another reference to "main" to be in the shared string table above, then it would be worth reordering these two, because otherwise all we do is delete "main" from it as a consequence @@ -3470,17 +3470,17 @@ S_init_main_stash(pTHX) hv_name_set(PL_defstash, "main", 4, 0); GvHV(gv) = (HV*)SvREFCNT_inc(PL_defstash); SvREADONLY_on(gv); - PL_incgv = gv_HVadd(gv_AVadd(gv_fetchpvs("INC",TRUE, SVt_PVAV))); + PL_incgv = gv_HVadd(gv_AVadd(gv_fetchpvs("INC", GV_ADD, SVt_PVAV))); SvREFCNT_inc(PL_incgv); /* Don't allow it to be freed */ GvMULTI_on(PL_incgv); - PL_hintgv = gv_fetchpvs("\010",TRUE, SVt_PV); /* ^H */ + PL_hintgv = gv_fetchpvs("\010", GV_ADD, SVt_PV); /* ^H */ GvMULTI_on(PL_hintgv); - PL_defgv = gv_fetchpvs("_",TRUE, SVt_PVAV); + PL_defgv = gv_fetchpvs("_", GV_ADD, SVt_PVAV); SvREFCNT_inc(PL_defgv); - PL_errgv = gv_HVadd(gv_fetchpvs("@", TRUE, SVt_PV)); + PL_errgv = gv_HVadd(gv_fetchpvs("@", GV_ADD, SVt_PV)); SvREFCNT_inc(PL_errgv); GvMULTI_on(PL_errgv); - PL_replgv = gv_fetchpvs("\022", TRUE, SVt_PV); /* ^R */ + PL_replgv = gv_fetchpvs("\022", GV_ADD, SVt_PV); /* ^R */ GvMULTI_on(PL_replgv); (void)Perl_form(aTHX_ "%240s",""); /* Preallocate temp - for immediate signals. */ #ifdef PERL_DONT_CREATE_GVSV @@ -4490,31 +4490,31 @@ S_init_predump_symbols(pTHX) IO *io; sv_setpvn(get_sv("\"", TRUE), " ", 1); - PL_stdingv = gv_fetchpvs("STDIN",TRUE, SVt_PVIO); + PL_stdingv = gv_fetchpvs("STDIN", GV_ADD, SVt_PVIO); GvMULTI_on(PL_stdingv); io = GvIOp(PL_stdingv); IoTYPE(io) = IoTYPE_RDONLY; IoIFP(io) = PerlIO_stdin(); - tmpgv = gv_fetchpvs("stdin",TRUE, SVt_PV); + tmpgv = gv_fetchpvs("stdin", GV_ADD, SVt_PV); GvMULTI_on(tmpgv); GvIOp(tmpgv) = (IO*)SvREFCNT_inc(io); - tmpgv = gv_fetchpvs("STDOUT",TRUE, SVt_PVIO); + tmpgv = gv_fetchpvs("STDOUT", GV_ADD, SVt_PVIO); GvMULTI_on(tmpgv); io = GvIOp(tmpgv); IoTYPE(io) = IoTYPE_WRONLY; IoOFP(io) = IoIFP(io) = PerlIO_stdout(); setdefout(tmpgv); - tmpgv = gv_fetchpvs("stdout",TRUE, SVt_PV); + tmpgv = gv_fetchpvs("stdout", GV_ADD, SVt_PV); GvMULTI_on(tmpgv); GvIOp(tmpgv) = (IO*)SvREFCNT_inc(io); - PL_stderrgv = gv_fetchpvs("STDERR",TRUE, SVt_PVIO); + PL_stderrgv = gv_fetchpvs("STDERR", GV_ADD, SVt_PVIO); GvMULTI_on(PL_stderrgv); io = GvIOp(PL_stderrgv); IoTYPE(io) = IoTYPE_WRONLY; IoOFP(io) = IoIFP(io) = PerlIO_stderr(); - tmpgv = gv_fetchpvs("stderr",TRUE, SVt_PV); + tmpgv = gv_fetchpvs("stderr", GV_ADD, SVt_PV); GvMULTI_on(tmpgv); GvIOp(tmpgv) = (IO*)SvREFCNT_inc(io); @@ -4544,10 +4544,10 @@ Perl_init_argv_symbols(pTHX_ register int argc, register char **argv) TRUE, SVt_PV)), s + 1); } else - sv_setiv(GvSV(gv_fetchpv(argv[0]+1,TRUE, SVt_PV)),1); + sv_setiv(GvSV(gv_fetchpv(argv[0]+1, GV_ADD, SVt_PV)),1); } } - if ((PL_argvgv = gv_fetchpvs("ARGV",TRUE, SVt_PVAV))) { + if ((PL_argvgv = gv_fetchpvs("ARGV", GV_ADD, SVt_PVAV))) { GvMULTI_on(PL_argvgv); (void)gv_AVadd(PL_argvgv); av_clear(GvAVn(PL_argvgv)); @@ -4582,7 +4582,7 @@ S_init_postdump_symbols(pTHX_ register int argc, register char **argv, register init_argv_symbols(argc,argv); - if ((tmpgv = gv_fetchpvs("0",TRUE, SVt_PV))) { + if ((tmpgv = gv_fetchpvs("0", GV_ADD, SVt_PV))) { #ifdef MACOS_TRADITIONAL /* $0 is not majick on a Mac */ sv_setpv(GvSV(tmpgv),MacPerl_MPWFileName(PL_origfilename)); @@ -4591,7 +4591,7 @@ S_init_postdump_symbols(pTHX_ register int argc, register char **argv, register magicname("0", "0", 1); #endif } - if ((PL_envgv = gv_fetchpvs("ENV",TRUE, SVt_PVHV))) { + if ((PL_envgv = gv_fetchpvs("ENV", GV_ADD, SVt_PVHV))) { HV *hv; GvMULTI_on(PL_envgv); hv = GvHVn(PL_envgv); @@ -4640,7 +4640,7 @@ S_init_postdump_symbols(pTHX_ register int argc, register char **argv, register #endif /* !PERL_MICRO */ } TAINT_NOT; - if ((tmpgv = gv_fetchpvs("$",TRUE, SVt_PV))) { + if ((tmpgv = gv_fetchpvs("$", GV_ADD, SVt_PV))) { SvREADONLY_off(GvSV(tmpgv)); sv_setiv(GvSV(tmpgv), (IV)PerlProc_getpid()); SvREADONLY_on(GvSV(tmpgv)); @@ -1078,7 +1078,7 @@ PP(pp_flip) flip = SvIV(sv) == (IV)IoLINES(GvIOp(PL_last_in_gv)); } else { - GV * const gv = gv_fetchpvs(".", TRUE, SVt_PV); + GV * const gv = gv_fetchpvs(".", GV_ADD, SVt_PV); if (gv && GvSV(gv)) flip = SvIV(sv) == SvIV(GvSV(gv)); } @@ -1172,7 +1172,7 @@ PP(pp_flop) flop = SvIV(sv) == (IV)IoLINES(GvIOp(PL_last_in_gv)); } else { - GV * const gv = gv_fetchpvs(".", TRUE, SVt_PV); + GV * const gv = gv_fetchpvs(".", GV_ADD, SVt_PV); if (gv && GvSV(gv)) flop = SvIV(sv) == SvIV(GvSV(gv)); } } @@ -1674,7 +1674,7 @@ PP(pp_caller) const int off = AvARRAY(ary) - AvALLOC(ary); if (!PL_dbargs) { - GV* const tmpgv = gv_fetchpvs("DB::args", TRUE, SVt_PVAV); + GV* const tmpgv = gv_fetchpvs("DB::args", GV_ADD, SVt_PVAV); PL_dbargs = GvAV(gv_AVadd(tmpgv)); GvMULTI_on(tmpgv); AvREAL_off(PL_dbargs); /* XXX should be REIFY (see av.h) */ @@ -1631,8 +1631,8 @@ PP(pp_sort) SAVESPTR(PL_firstgv); SAVESPTR(PL_secondgv); SAVESPTR(PL_sortstash); - PL_firstgv = gv_fetchpvs("a", TRUE, SVt_PV); - PL_secondgv = gv_fetchpvs("b", TRUE, SVt_PV); + PL_firstgv = gv_fetchpvs("a", GV_ADD, SVt_PV); + PL_secondgv = gv_fetchpvs("b", GV_ADD, SVt_PV); PL_sortstash = stash; SAVESPTR(GvSV(PL_firstgv)); SAVESPTR(GvSV(PL_secondgv)); @@ -2273,7 +2273,7 @@ Perl_my_popen(pTHX_ const char *cmd, const char *mode) PerlProc__exit(1); } #endif /* defined OS2 */ - if ((tmpgv = gv_fetchpvs("$",TRUE, SVt_PV))) { + if ((tmpgv = gv_fetchpvs("$", GV_ADD, SVt_PV))) { SvREADONLY_off(GvSV(tmpgv)); sv_setiv(GvSV(tmpgv), PerlProc_getpid()); SvREADONLY_on(GvSV(tmpgv)); |