Lines Matching defs:gv
437 S_openn_setup(pTHX_ GV *gv, char *mode, PerlIO **saveifp, PerlIO **saveofp,
440 IO * const io = GvIOn(gv);
488 HEKfARG(GvENAME_HEK(gv))
499 Perl_do_openn(pTHX_ GV *gv, const char *oname, I32 len, int as_raw,
512 return do_open_raw(gv, oname, len, rawmode, rawperm, NULL);
514 return do_open6(gv, oname, len, supplied_fp, svp, num_svs);
518 Perl_do_open_raw(pTHX_ GV *gv, const char *oname, STRLEN len,
526 IO * const io = openn_setup(gv, mode, &saveifp, &saveofp, &savefd, &savetype);
582 return openn_cleanup(gv, io, fp, mode, oname, saveifp, saveofp, savefd,
587 Perl_do_open6(pTHX_ GV *gv, const char *oname, STRLEN len,
595 IO * const io = openn_setup(gv, mode, &saveifp, &saveofp, &savefd, &savetype);
981 return openn_cleanup(gv, io, fp, mode, oname, saveifp, saveofp, savefd,
988 S_openn_cleanup(pTHX_ GV *gv, IO *io, PerlIO *fp, char *mode, const char *oname,
1019 HEKfARG(GvENAME_HEK(gv)));
1024 HEKfARG(GvENAME_HEK(gv))
1169 S_openindirtemp(pTHX_ GV *gv, SV *orig_name, SV *temp_out_name) {
1215 return do_openn(gv, "+>&", 3, 0, 0, 0, fp, NULL, 0);
1394 Perl_nextargv(pTHX_ GV *gv, bool nomagicopen)
1396 IO * const io = GvIOp(gv);
1397 SV *const old_out_name = PL_inplace ? newSVsv(GvSV(gv)) : NULL;
1424 if (!GvAV(gv))
1426 while (av_count(GvAV(gv)) > 0) {
1428 SV *const sv = av_shift(GvAV(gv));
1430 SvTAINTED_off(GvSVn(gv)); /* previous tainting irrelevant */
1431 sv_setsv(GvSVn(gv),sv);
1432 SvSETMAGIC(GvSV(gv));
1433 PL_oldname = SvPVx(GvSV(gv), oldlen);
1436 if (do_open6(gv, "<", 1, NULL, &GvSV(gv), 1)) {
1437 return IoIFP(GvIOp(gv));
1448 if ( do_open6(gv, PL_oldname, oldlen, NULL, NULL, 0) ) {
1449 return IoIFP(GvIOp(gv));
1455 /* This very long block ends with return IoIFP(GvIOp(gv));
1459 if (do_open_raw(gv, PL_oldname, oldlen, O_RDONLY, 0, &statbuf)) {
1477 return IoIFP(GvIOp(gv));
1490 do_close(gv,FALSE);
1529 if (!S_openindirtemp(aTHX_ PL_argvoutgv, GvSV(gv), temp_name_sv)) {
1537 do_close(gv,FALSE);
1576 return IoIFP(GvIOp(gv));
1862 C<gv> is the glob associated with the stream.
1875 Perl_do_close(pTHX_ GV *gv, bool is_explict)
1881 if (!gv)
1882 gv = PL_argvgv;
1883 if (!gv || !isGV_with_GP(gv)) {
1888 io = GvIO(gv);
1891 report_evil_fh(gv);
1914 Perl_io_close(pTHX_ IO *io, GV *gv, bool is_explict, bool warn_on_fail)
1965 if (gv)
1969 HEKfARG(GvNAME_HEK(gv)),
1986 Perl_do_eof(pTHX_ GV *gv)
1988 IO * const io = GvIO(gv);
1995 report_wrongway_fh(gv, '>');
2020 if (gv != PL_argvgv || !nextargv(gv, FALSE)) /* get another fp handy */
2030 Perl_do_tell(pTHX_ GV *gv)
2032 IO *const io = GvIO(gv);
2040 report_evil_fh(gv);
2046 Perl_do_seek(pTHX_ GV *gv, Off_t pos, int whence)
2048 IO *const io = GvIO(gv);
2054 report_evil_fh(gv);
2060 Perl_do_sysseek(pTHX_ GV *gv, Off_t pos, int whence)
2062 IO *const io = GvIO(gv);
2076 report_evil_fh(gv);
2272 GV* gv;
2275 gv = cGVOP_gv;
2277 if (gv == PL_defgv) {
2282 io = GvIO(gv);
2285 PL_statgv = gv ? gv : (GV *)io;
2302 report_evil_fh(gv);
2313 if ((gv = MAYBE_DEREF_GV_flags(sv,flags))) {
2318 gv = NULL;
2661 GV* gv;
2662 if ((gv = MAYBE_DEREF_GV(*mark))) {
2663 if (GvIO(gv) && IoIFP(GvIOp(gv))) {
2665 int fd = PerlIO_fileno(IoIFP(GvIOn(gv)));
2702 GV* gv;
2703 if ((gv = MAYBE_DEREF_GV(*mark))) {
2704 if (GvIO(gv) && IoIFP(GvIOp(gv))) {
2706 int fd = PerlIO_fileno(IoIFP(GvIOn(gv)));
2894 GV* gv;
2895 if ((gv = MAYBE_DEREF_GV(*mark))) {
2896 if (GvIO(gv) && IoIFP(GvIOp(gv))) {
2898 int fd = PerlIO_fileno(IoIFP(GvIOn(gv)));