Lines Matching defs:mg

675                  const MAGIC *const mg, const U32 flags, U32 argc, ...)
731     rpp_push_1(SvTIED_obj(sv, mg));
830         const MAGIC *mg;
837         mg = SvTIED_mg((const SV *)io, PERL_MAGIC_tiedscalar);
838         if (mg) {
841             return Perl_tied_method(aTHX_ SV_CONST(OPEN), mark - 1, MUTABLE_SV(io), mg,
880             const MAGIC * const mg = SvTIED_mg((const SV *)io, PERL_MAGIC_tiedscalar);
881             if (mg) {
882                 return tied_method0(SV_CONST(CLOSE), SP, MUTABLE_SV(io), mg);
945     const MAGIC *mg;
953         && (mg = SvTIED_mg((const SV *)io, PERL_MAGIC_tiedscalar)))
955         return tied_method0(SV_CONST(FILENO), SP, MUTABLE_SV(io), mg);
1035         const MAGIC * const mg = SvTIED_mg((const SV *)io, PERL_MAGIC_tiedscalar);
1036         if (mg) {
1041             return Perl_tied_method(aTHX_ SV_CONST(BINMODE), SP, MUTABLE_SV(io), mg,
1222     MAGIC *mg;
1233     if ((mg = SvTIED_mg(sv, how))) {
1234         SV * const obj = SvRV(SvTIED_obj(sv, mg));
1240                PUSHs(SvTIED_obj(MUTABLE_SV(gv), mg));
1248             else if (mg && SvREFCNT(obj) > 1) {
1274     const MAGIC *mg;
1285     if ((mg = SvTIED_mg(sv, how))) {
1286         SETs(SvTIED_obj(sv, mg));
1604         const MAGIC * const mg = SvTIED_mg((const SV *)io, PERL_MAGIC_tiedscalar);
1605         if (mg) {
1607             Perl_tied_method(aTHX_ SV_CONST(GETC), SP, MUTABLE_SV(io), mg, gimme, 0);
1851         const MAGIC * const mg = SvTIED_mg((const SV *)io, PERL_MAGIC_tiedscalar);
1852         if (mg) {
1862                                     mg,
1949         const MAGIC *const mg = SvTIED_mg((const SV *)io, PERL_MAGIC_tiedscalar);
1950         if (mg) {
1951             return Perl_tied_method(aTHX_ SV_CONST(READ), mark - 1, MUTABLE_SV(io), mg,
2202         const MAGIC * const mg = SvTIED_mg((const SV *)io, PERL_MAGIC_tiedscalar);
2203         if (mg) {
2210             return Perl_tied_method(aTHX_ SV_CONST(WRITE), mark - 1, MUTABLE_SV(io), mg,
2346     const MAGIC *mg;
2379     if ((io = GvIO(gv)) && (mg = SvTIED_mg((const SV *)io, PERL_MAGIC_tiedscalar))) {
2380         return tied_method1(SV_CONST(EOF), SP, MUTABLE_SV(io), mg, newSVuv(which));
2422         const MAGIC * const mg = SvTIED_mg((const SV *)io, PERL_MAGIC_tiedscalar);
2423         if (mg) {
2424             return tied_method0(SV_CONST(TELL), SP, MUTABLE_SV(io), mg);
2459         const MAGIC * const mg = SvTIED_mg((const SV *)io, PERL_MAGIC_tiedscalar);
2460         if (mg) {
2467             return tied_method2(SV_CONST(SEEK), SP, MUTABLE_SV(io), mg, offset_sv,