Lines Matching defs:io
541 IO *io;
550 if (gv && (io = GvIO(gv))
551 && (mg = SvTIED_mg((SV*)io, PERL_MAGIC_tiedscalar)))
564 *MARK = SvTIED_obj((SV*)io, mg);
575 if (!(io = GvIO(gv))) {
576 if ((GvEGV(gv)) && (io = GvIO(GvEGV(gv)))
577 && (mg = SvTIED_mg((SV*)io, PERL_MAGIC_tiedscalar)))
580 report_evil_fh(gv, io, PL_op->op_type);
584 else if (!(fp = IoOFP(io))) {
586 if (IoIFP(io))
587 report_evil_fh(gv, io, OP_phoney_INPUT_ONLY);
589 report_evil_fh(gv, io, PL_op->op_type);
591 SETERRNO(EBADF,IoIFP(io)?RMS_FAC:RMS_IFI);
623 if (IoFLAGS(io) & IOf_FLUSH)
1481 register IO *io = GvIO(PL_last_in_gv);
1486 if (io && (mg = SvTIED_mg((SV*)io, PERL_MAGIC_tiedscalar))) {
1488 XPUSHs(SvTIED_obj((SV*)io, mg));
1502 if (io) {
1503 fp = IoIFP(io);
1505 if (IoFLAGS(io) & IOf_ARGV) {
1506 if (IoFLAGS(io) & IOf_START) {
1507 IoLINES(io) = 0;
1509 IoFLAGS(io) &= ~IOf_START;
1513 fp = IoIFP(io);
1518 if (!fp) { /* Note: fp != IoIFP(io) */
1523 fp = Perl_start_glob(aTHX_ POPs, io);
1527 else if (ckWARN(WARN_IO) && IoTYPE(io) == IoTYPE_WRONLY) {
1528 report_evil_fh(PL_last_in_gv, io, OP_phoney_OUTPUT_ONLY);
1533 && (!io || !(IoFLAGS(io) & IOf_START))) {
1539 report_evil_fh(PL_last_in_gv, io, PL_op->op_type);
1575 #define MAYBE_TAINT_LINE(io, sv) \
1576 if (!(IoFLAGS(io) & IOf_UNTAINT)) { \
1582 #define SNARF_EOF(gimme,rs,io,sv) \
1584 || (IoFLAGS(io) & IOf_NOLINE) || !RsSNARF(rs))
1590 || SNARF_EOF(gimme, PL_rs, io, sv)
1594 if (IoFLAGS(io) & IOf_ARGV) {
1616 MAYBE_TAINT_LINE(io, sv);
1619 MAYBE_TAINT_LINE(io, sv);
1620 IoLINES(io)++;
1621 IoFLAGS(io) |= IOf_NOLINE;