/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
H A D | taint.c | 101 if ((mg = mg_find(*svp, PERL_MAGIC_envelem)) && MgTAINTEDDIR(mg)) { 116 if ((mg = mg_find(*svp, PERL_MAGIC_envelem)) && MgTAINTEDDIR(mg)) {
|
H A D | mg.h | 53 (SvRMAGICAL(sv) ? mg_find((sv),(how)) : Null(MAGIC*))
|
H A D | cc_runtime.h | 26 !((mg=mg_find(left, PERL_MAGIC_taint)) && mg->mg_len & 1)))\
|
H A D | av.c | 191 MAGIC *tied_magic = mg_find((SV*)av, PERL_MAGIC_tied); 192 if (tied_magic || mg_find((SV*)av, PERL_MAGIC_regdata)) { 279 MAGIC *tied_magic = mg_find((SV*)av, PERL_MAGIC_tied); 801 MAGIC *tied_magic = mg_find((SV*)av, PERL_MAGIC_tied); 803 if ((tied_magic || mg_find((SV*)av, PERL_MAGIC_regdata))) { 826 if (mg_find(sv, PERL_MAGIC_tiedelem)) { 883 MAGIC *tied_magic = mg_find((SV*)av, PERL_MAGIC_tied); 884 if (tied_magic || mg_find((SV*)av, PERL_MAGIC_regdata)) { 907 mg = mg_find(sv, PERL_MAGIC_tiedelem);
|
H A D | hv.c | 401 if (mg_find((SV*)hv, PERL_MAGIC_tied) || SvGMAGICAL((SV*)hv)) { 442 else if (mg_find((SV*)hv, PERL_MAGIC_env)) { 473 if (mg_find((SV*)hv, PERL_MAGIC_tied) || SvGMAGICAL((SV*)hv)) { 493 magic_existspack(svret, mg_find(sv, PERL_MAGIC_tiedelem)); 500 else if (mg_find((SV*)hv, PERL_MAGIC_env)) { 542 else if (mg_find((SV*)hv, PERL_MAGIC_env)) { 564 || (SvRMAGICAL((SV*)hv) && mg_find((SV*)hv, PERL_MAGIC_env)) 699 && SvRMAGICAL((SV*)hv) && mg_find((SV*)hv, PERL_MAGIC_env)) { 815 if ((SvRMAGICAL(hv) && (mg = mg_find((SV*)hv, PERL_MAGIC_tied)))) { 913 if (mg_find(s [all...] |
H A D | gv.c | 1299 MAGIC* mg=mg_find((SV*)stash, PERL_MAGIC_overload_table); 1422 mg = mg_find((SV*)stash, PERL_MAGIC_overload_table); 1426 mg = mg_find((SV*)stash, PERL_MAGIC_overload_table); 1466 && (mg = mg_find((SV*)stash, PERL_MAGIC_overload_table)) 1584 && (mg = mg_find((SV*)stash, PERL_MAGIC_overload_table))
|
H A D | pp_hot.c | 1281 MAGIC* mg = mg_find(TARG, PERL_MAGIC_regex_global); 1372 mg = mg_find(TARG, PERL_MAGIC_regex_global); 1375 mg = mg_find(TARG, PERL_MAGIC_regex_global); 1400 mg = mg_find(TARG, PERL_MAGIC_regex_global); 1403 mg = mg_find(TARG, PERL_MAGIC_regex_global); 1462 MAGIC* mg = mg_find(TARG, PERL_MAGIC_regex_global); 1717 || mg_find((SV*)hv, PERL_MAGIC_env) 1718 || ( (mg = mg_find((SV*)hv, PERL_MAGIC_tied))
|
H A D | sv.c | 3015 && (mg = mg_find(sv, PERL_MAGIC_qr))) { 4044 MAGIC *smg = mg_find(sstr,PERL_MAGIC_vstring); 4668 if (SvMAGIC(sv) && (mg = mg_find(sv, how))) { 4895 if (SvMAGICAL(tsv) && (mg = mg_find(tsv, PERL_MAGIC_backref))) 4931 if (!SvMAGICAL(tsv) || !(mg = mg_find(tsv, PERL_MAGIC_backref))) 5421 MAGIC *mg = SvMAGICAL(sv) ? mg_find(sv, PERL_MAGIC_utf8) : 0; 5433 mg = mg_find(sv, PERL_MAGIC_utf8); 5493 *mgp = mg_find(sv, PERL_MAGIC_utf8); 5712 mg = mg_find(sv, PERL_MAGIC_utf8); 5783 mg = mg_find(s [all...] |
H A D | pp.c | 323 mg = mg_find(sv, PERL_MAGIC_regex_global); 743 || (SvRMAGICAL(sv) && mg_find(sv, PERL_MAGIC_tied))) 748 || (SvRMAGICAL(sv) && mg_find(sv, PERL_MAGIC_tied))) 3875 other_magic = mg_find((SV*)hv, PERL_MAGIC_env) || 3876 ((mg = mg_find((SV*)hv, PERL_MAGIC_tied)) 4708 MAGIC *mg = mg_find((SV*)svv, PERL_MAGIC_mutex);
|
H A D | regexec.c | 1688 && (mg = mg_find(sv, PERL_MAGIC_regex_global)) 2103 && (mg = mg_find(PL_reg_sv, PERL_MAGIC_regex_global)))) { 2107 mg = mg_find(PL_reg_sv, PERL_MAGIC_regex_global); 2870 mg = mg_find(sv, PERL_MAGIC_qr); 2875 mg = mg_find(ret, PERL_MAGIC_qr);
|
H A D | scope.c | 208 (mg = mg_find(osv, PERL_MAGIC_taint))) {
|
H A D | sv.h | 594 #define SvVOK(sv) (SvMAGICAL(sv) && mg_find(sv,'V'))
|
H A D | pp_ctl.c | 86 mg = mg_find(sv, PERL_MAGIC_qr); 246 if (!(mg = mg_find(sv, PERL_MAGIC_regex_global))) { 248 mg = mg_find(sv, PERL_MAGIC_regex_global);
|
H A D | util.c | 365 MAGIC *mg = SvUTF8(sv) && SvMAGICAL(sv) ? mg_find(sv, PERL_MAGIC_utf8) : NULL; 2955 mg = mg_find(sv, PERL_MAGIC_mutex); 2965 mg = mg_find(sv, PERL_MAGIC_mutex);
|
H A D | regcomp.c | 506 SvUTF8(sv) && SvMAGICAL(sv) ? mg_find(sv, PERL_MAGIC_utf8) : NULL; 934 mg_find(sv, PERL_MAGIC_utf8) : NULL; 1313 mg_find(sv, PERL_MAGIC_utf8) : NULL;
|
H A D | embed.h | 652 #define mg_find Perl_mg_find macro 3178 #define mg_find(a,b) Perl_mg_find(aTHX_ a,b) macro
|
H A D | perlio.c | 835 mg = mg_find(sv, PERL_MAGIC_ext);
|
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Kstat/ |
H A D | Kstat.xs | 766 mg = mg_find((SV *)hash, 'P'); 818 mg = mg_find((SV *)hash4, 'P'); 841 mg = mg_find((SV *)self, '~'); 894 mg = mg_find((SV *)hash4, 'P'); 898 mg = mg_find((SV *)tie, '~'); 1070 mg = mg_find((SV *)self, '~'); 1247 mg = mg_find(SvRV(self), '~'); 1366 mg = mg_find((SV *)tie, '~'); 1414 mg = mg_find(SvRV(self), '~'); 1574 mg = mg_find(sel [all...] |
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/Object/ |
H A D | Object.xs | 70 mg = mg_find(SvRV(src->perl_obj), 'P'); 303 mg = mg_find(SvRV(self->perl_obj), 'P'); 539 mg = mg_find(SvRV(self->perl_obj), 'P');
|
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/ |
H A D | Exacct.xs | 334 mg = mg_find(SvRV(xs_obj->perl_obj), 'P');
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/ |
H A D | Util.xs | 69 MAGIC *mg = mg_find(sv, 't');
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/ |
H A D | Storable.xs | 2615 if (!(mg = mg_find(sv, mtype))) 2621 * The mg->mg_obj found by mg_find() above actually points to the 2661 if (!(mg = mg_find(sv, 'p'))) 3098 if (!(mg = mg_find(sv, mtype))) { 3299 if (SvRMAGICAL(sv) && (mg_find(sv, 'p'))) 3303 if (SvRMAGICAL(sv) && (mg_find(sv, 'q'))) 3307 if (SvRMAGICAL(sv) && (mg_find(sv, 'P'))) 3311 if (SvRMAGICAL(sv) && (mg_find(sv, 'P')))
|