Home
last modified time | relevance | path

Searched refs:PL_rs (Results 1 – 11 of 11) sorted by relevance

/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/
H A Ddoop.c1014 if (RsSNARF(PL_rs)) in Perl_do_chomp()
1016 if (RsRECORD(PL_rs)) in Perl_do_chomp()
1063 if (RsPARA(PL_rs)) { in Perl_do_chomp()
1075 char *rsptr = SvPV(PL_rs, rslen); in Perl_do_chomp()
1077 rs_charlen = SvUTF8(PL_rs) in Perl_do_chomp()
1078 ? sv_len_utf8(PL_rs) in Perl_do_chomp()
1081 if (SvUTF8(PL_rs) != SvUTF8(sv)) { in Perl_do_chomp()
1083 if (SvUTF8(PL_rs)) { in Perl_do_chomp()
H A Dperl.c290 PL_rs = newSVpvn("\n", 1); in perl_construct()
692 SvREFCNT_dec(PL_rs); /* $/ */ in perl_destruct()
693 PL_rs = Nullsv; in perl_destruct()
2551 SvREFCNT_dec(PL_rs); in S_parse_body()
2565 PL_rs = newSVpvn("", 0); in S_parse_body()
2566 SvGROW(PL_rs, (STRLEN)(UNISKIP(rschar) + 1)); in S_parse_body()
2567 tmps = (U8*)SvPVX(PL_rs); in S_parse_body()
2569 SvCUR_set(PL_rs, UNISKIP(rschar)); in S_parse_body()
2570 SvUTF8_on(PL_rs); in S_parse_body()
2576 PL_rs = &PL_sv_undef; in S_parse_body()
[all …]
H A Dperlapi.h929 #undef PL_rs
930 #define PL_rs (*Perl_Trs_ptr(aTHX))
H A Dembedvar.h146 #define PL_rs (vTHX->Trs) macro
1255 #define PL_rs (aTHX->Trs) macro
1395 #define PL_Trs PL_rs
H A Dpp_sys.c339 SV *oldrs = PL_rs; in PP()
340 PL_rs = &PL_sv_undef; in PP()
345 PL_rs = oldrs; in PP()
403 SAVESPTR(PL_rs); /* This is not permanent, either. */ in PP()
404 PL_rs = sv_2mortal(newSVpvn("\000", 1)); in PP()
407 *SvPVX(PL_rs) = '\n'; in PP()
H A Dutil.c970 bool line_mode = (RsSIMPLE(PL_rs) && in Perl_vmess()
971 SvCUR(PL_rs) == 1 && *SvPVX(PL_rs) == '\n'); in Perl_vmess()
3102 PL_rs = newSVsv(t->Trs);
H A Dpp_hot.c1590 || SNARF_EOF(gimme, PL_rs, io, sv) in Perl_do_readline()
1628 if (SvCUR(sv) > 0 && SvCUR(PL_rs) > 0) { in Perl_do_readline()
1630 if (*tmps == *SvPVX(PL_rs)) { in Perl_do_readline()
H A Dsv.c6160 else if (RsSNARF(PL_rs)) { in Perl_sv_gets()
6176 else if (RsRECORD(PL_rs)) { in Perl_sv_gets()
6181 recsize = SvIV(SvRV(PL_rs)); in Perl_sv_gets()
6200 else if (RsPARA(PL_rs)) { in Perl_sv_gets()
6208 rsptr = SvPVutf8(PL_rs, rslen); in Perl_sv_gets()
6211 if (SvUTF8(PL_rs)) { in Perl_sv_gets()
6212 if (!sv_utf8_downgrade(PL_rs, TRUE)) { in Perl_sv_gets()
6216 rsptr = SvPV(PL_rs, rslen); in Perl_sv_gets()
11307 PL_rs = sv_dup_inc(proto_perl->Trs, param); in perl_clone_using()
H A Dmg.c2238 SvREFCNT_dec(PL_rs); in Perl_magic_set()
2239 PL_rs = newSVsv(sv); in Perl_magic_set()
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/pod/
H A Dperlintern.pod377 =item PL_rs
381 SV* PL_rs
H A Dperltoc.pod4810 PL_rs