Lines Matching defs:mg
543 MAGIC *mg;
551 && (mg = SvTIED_mg((SV*)io, PERL_MAGIC_tiedscalar)))
564 *MARK = SvTIED_obj((SV*)io, mg);
577 && (mg = SvTIED_mg((SV*)io, PERL_MAGIC_tiedscalar)))
1281 MAGIC* mg = mg_find(TARG, PERL_MAGIC_regex_global);
1282 if (mg && mg->mg_len >= 0) {
1284 rx->endp[0] = rx->startp[0] = mg->mg_len;
1287 rx->endp[0] = rx->startp[0] = mg->mg_len;
1289 minmatch = (mg->mg_flags & MGf_MINMATCH);
1370 MAGIC* mg = 0;
1372 mg = mg_find(TARG, PERL_MAGIC_regex_global);
1373 if (!mg) {
1375 mg = mg_find(TARG, PERL_MAGIC_regex_global);
1378 mg->mg_len = rx->endp[0];
1380 mg->mg_flags |= MGf_MINMATCH;
1382 mg->mg_flags &= ~MGf_MINMATCH;
1398 MAGIC* mg = 0;
1400 mg = mg_find(TARG, PERL_MAGIC_regex_global);
1401 if (!mg) {
1403 mg = mg_find(TARG, PERL_MAGIC_regex_global);
1406 mg->mg_len = rx->endp[0];
1408 mg->mg_flags |= MGf_MINMATCH;
1410 mg->mg_flags &= ~MGf_MINMATCH;
1462 MAGIC* mg = mg_find(TARG, PERL_MAGIC_regex_global);
1463 if (mg)
1464 mg->mg_len = -1;
1484 MAGIC *mg;
1486 if (io && (mg = SvTIED_mg((SV*)io, PERL_MAGIC_tiedscalar))) {
1488 XPUSHs(SvTIED_obj((SV*)io, mg));
1711 MAGIC *mg;
1718 || ( (mg = mg_find((SV*)hv, PERL_MAGIC_tied))
1722 && (stash = SvSTASH(SvRV(SvTIED_obj((SV*)hv, mg))))
2677 MAGIC *mg;
2702 mg = condpair_magic(sv);
2703 MUTEX_LOCK(MgMUTEXP(mg));
2704 if (MgOWNER(mg) == thr)
2705 MUTEX_UNLOCK(MgMUTEXP(mg));
2707 while (MgOWNER(mg))
2708 COND_WAIT(MgOWNERCONDP(mg), MgMUTEXP(mg));
2709 MgOWNER(mg) = thr;
2712 MUTEX_UNLOCK(MgMUTEXP(mg));