Home
last modified time | relevance | path

Searched refs:sref (Results 1 – 6 of 6) sorted by relevance

/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/
H A DFatal.pm90 my($name, $code, $sref, $real_proto, $proto, $core, $call);
99 $sref = \&$sub;
100 $proto = prototype $sref;
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dinccode.t144 my $sref = bless( \(my $x = 1), 'FooLoader' );
145 push @INC, $sref;
153 is( $INC{'Quux2.pm'}, $sref, ' val Quux2.pm is correct in %INC' );
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/
H A Dst-dump.pl115 my ($sref) = @_;
116 my $scalar = $$sref;
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/x2p/
H A Ds2p.PL741 my( $del, $sref ) = @_;
743 print "stripRegex:$del:$$sref:\n" if $useDEBUG;
744 while( $$sref =~ s{^(.*?)(\\*)\Q$del\E(\s*)}{}s ){
759 my( $del, $sref ) = @_;
761 print "stripTrans:$del:$$sref:\n" if $useDEBUG;
762 while( $$sref =~ s{^(.*?)(\\*)\Q$del\E}{}s ){
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/comp/
H A Dproto.t542 sreftest my $sref, $i++;
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/
H A Dsv.c3823 SV *sref = SvREFCNT_inc(SvRV(sstr)); in Perl_sv_setsv_flags() local
3839 switch (SvTYPE(sref)) { in Perl_sv_setsv_flags()
3845 GvAV(dstr) = (AV*)sref; in Perl_sv_setsv_flags()
3857 GvHV(dstr) = (HV*)sref; in Perl_sv_setsv_flags()
3866 if (GvCVGEN(dstr) && GvCV(dstr) != (CV*)sref) { in Perl_sv_setsv_flags()
3876 if (GvCV(dstr) != (CV*)sref) { in Perl_sv_setsv_flags()
3893 && (!CvCONST((CV*)sref) in Perl_sv_setsv_flags()
3895 cv_const_sv((CV*)sref))))) in Perl_sv_setsv_flags()
3907 SvPOK(sref) ? SvPVX(sref) : Nullch); in Perl_sv_setsv_flags()
3909 GvCV(dstr) = (CV*)sref; in Perl_sv_setsv_flags()
[all …]