| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
| H A D | xsutils.c | 256 HV *stash = Nullhv; local
260 stash = GvSTASH(CvGV(sv));
262 stash = CvSTASH(sv);
270 stash = GvESTASH((GV*)sv);
275 if (stash)
276 sv_setpv(TARG, HvNAME(stash));
|
| H A D | universal.c | 31 S_isa_lookup(pTHX_ HV *stash, const char *name, HV* name_stash, argument
40 /* A stash/class can go by many names (ie. User == main::User), so
41 we compare the stash itself just in case */
42 if (name_stash && (stash == name_stash))
45 if (strEQ(HvNAME(stash), name))
53 HvNAME(stash));
55 gvp = (GV**)hv_fetch(stash, "::ISA::CACHE::", 14, FALSE);
65 name, HvNAME(stash)) );
71 HvNAME(stash)) );
77 gvp = (GV**)hv_fetch(stash,"IS
137 HV *stash; local
[all...] |
| H A D | dump.c | 47 Perl_dump_packsubs(pTHX_ HV *stash) argument
52 if (!HvARRAY(stash))
54 for (i = 0; i <= (I32) HvMAX(stash); i++) {
55 for (entry = HvARRAY(stash)[i]; entry; entry = HeNEXT(entry)) {
|
| H A D | gv.c | 97 Perl_gv_init(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, int multi) argument
120 GvSTASH(gv) = (HV*)SvREFCNT_inc(stash);
171 C<NULL>. The glob lives in the given C<stash>, or in the stashes
175 side-effect creates a glob with the given C<name> in the given C<stash>
179 This function grants C<"SUPER"> token as a postfix of the stash name. The
189 Perl_gv_fetchmeth(pTHX_ HV *stash, const char *name, STRLEN len, I32 level) argument
197 /* UNIVERSAL methods should be callable without a stash */
198 if (!stash) {
200 if(!(stash = gv_stashpvn("UNIVERSAL", 9, FALSE)))
206 name, HvNAME(stash));
327 Perl_gv_fetchmeth_autoload(pTHX_ HV *stash, const char *name, STRLEN len, I32 level) argument
366 Perl_gv_fetchmethod(pTHX_ HV *stash, const char *name) argument
400 Perl_gv_fetchmethod_autoload(pTHX_ HV *stash, const char *name, I32 autoload) argument
475 Perl_gv_autoload4(pTHX_ HV *stash, const char *name, STRLEN len, I32 method) argument
560 HV* stash = gv_stashpvn("Errno",5,FALSE); local
599 HV *stash; local
650 HV *stash = 0; local
1155 Perl_gv_check(pTHX_ HV *stash) argument
[all...] |
| H A D | pp_hot.c | 1712 HV *stash; local
1722 && (stash = SvSTASH(SvRV(SvTIED_obj((SV*)hv, mg))))
1723 && gv_fetchmethod_autoload(stash, "EXISTS", TRUE)
1724 && gv_fetchmethod_autoload(stash, "DELETE", TRUE)
2564 HV *stash; local
2615 cv = sv_2cv(sv, &stash, &gv, FALSE);
2671 * stash (for static methods), as appropriate. This has to be
2767 "entersub: %p grabbing %p:%s in stash %s\n",
3086 HV* stash; local
3113 stash
[all...] |
| H A D | pp_sort.c | 1419 HV *stash; local
1442 stash = CopSTASH(PL_curcop);
1445 cv = sv_2cv(*++MARK, &stash, &gv, 0);
1481 stash = CopSTASH(PL_curcop);
1542 if (PL_sortstash != stash || !PL_firstgv || !PL_secondgv) {
1547 PL_sortstash = stash;
|
| H A D | pp.c | 340 HV *stash; local
344 CV *cv = sv_2cv(TOPs, &stash, &gv, !(PL_op->op_flags & OPf_SPECIAL));
365 HV *stash; local
423 cv = sv_2cv(TOPs, &stash, &gv, FALSE);
522 HV *stash; local
525 stash = CopSTASH(PL_curcop);
537 stash = gv_stashpvn(ptr, len, TRUE);
540 (void)sv_bless(TOPs, stash);
3873 HV *stash; local
3880 && (stash
[all...] |
| H A D | pp_sys.c | 482 HV *stash = SvSTASH(SvRV(error)); local
483 GV *gv = gv_fetchmethod(stash, "PROPAGATE");
779 HV* stash; local
830 stash = gv_stashsv(*MARK, FALSE);
831 if (!stash || !(gv = gv_fetchmethod(stash, methname))) {
929 HV* stash; local
937 stash = gv_stashsv(sv, FALSE);
938 if (!stash || !(gv = gv_fetchmethod(stash, "TIEHAS
[all...] |
| H A D | utf8.c | 1567 HV *stash = gv_stashpvn(pkg, strlen(pkg), FALSE); local
1570 if (!gv_fetchmeth(stash, "SWASHNEW", 8, -1)) { /* demand load utf8 */
|
| H A D | op.c | 1486 S_apply_attrs(pTHX_ HV *stash, SV *target, OP *attrs, bool for_my) argument
1493 if (stash)
1494 stashsv = newSVpv(HvNAME(stash), 0);
1528 S_apply_attrs_my(pTHX_ HV *stash, OP *target, OP *attrs, OP **imopsp) argument
1541 apply_attrs(stash, PAD_SV(target->op_targ), attrs, TRUE);
1547 if (stash)
1548 stashsv = newSVpv(HvNAME(stash), 0);
1668 HV *stash; local
1674 stash = PAD_COMPNAME_TYPE(o->op_targ);
1675 if (!stash)
4238 HV *stash; local
4459 Perl_newCONSTSUB(pTHX_ HV *stash, char *name, SV *sv) argument
[all...] |
| H A D | perlio.c | 860 HV *stash = gv_stashpv("PerlIO::Layer", TRUE); local
861 SV *sv = sv_bless(newRV_noinc(newSViv(PTR2IV(tab))), stash);
|
| H A D | util.c | 1038 HV *stash; local
1074 cv = sv_2cv(olddiehook, &stash, &gv, 0);
1141 HV *stash; local
1173 cv = sv_2cv(olddiehook, &stash, &gv, 0);
1259 HV *stash; local
1276 cv = sv_2cv(oldwarnhook, &stash, &gv, 0);
1358 HV *stash; local
1379 cv = sv_2cv(olddiehook, &stash, &gv, 0);
1416 cv = sv_2cv(oldwarnhook, &stash, &gv, 0);
|
| H A D | sv.c | 1284 HV* stash = Nullhv; local
1304 stash = 0;
1314 stash = 0;
1327 stash = 0;
1341 stash = 0;
1350 stash = 0;
1364 stash = 0;
1374 stash = 0;
1384 stash = SvSTASH(sv);
1438 SvSTASH(sv) = stash;
5095 HV* stash; local
7077 Perl_sv_reset(pTHX_ register char *s, HV *stash) argument
7734 HV* stash = gv_stashpv(classname, TRUE); local
7860 Perl_sv_bless(pTHX_ SV *sv, HV *stash) argument
11425 HV* stash = (HV*) av_shift(param->stashes); local
[all...] |