Searched refs:stashname (Results 1 - 3 of 3) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/B/
H A DC.pm920 my $stashname = $egv->STASH->NAME;
925 warn "Bootstrap $stashname $file\n";
928 if( $stashname ne 'attributes' &&
929 !UNIVERSAL::isa($stashname,'DynaLoader') ) {
930 $xsub{$stashname}='Dynamic-XSLoaded';
934 $xsub{$stashname}='Dynamic';
936 # $xsub{$stashname}='Static' unless $xsub{$stashname};
945 if grep { $stashname eq $_ } qw(IO::File IO::Handle IO::Socket
949 return qq/(perl_get_cv("$stashname\
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Dpp_ctl.c1439 char *stashname; local
1477 stashname = CopSTASHPV(cx->blk_oldcop);
1480 if (!stashname)
1484 sv_setpv(TARG, stashname);
1492 if (!stashname)
1495 PUSHs(sv_2mortal(newSVpv(stashname, 0)));
H A Dpp_hot.c2694 char *stashname = SvPV(sv, len); local
2695 sv = (SV*)gv_stashpvn(stashname, len, TRUE);

Completed in 46 milliseconds