Home
last modified time | relevance | path

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

/openbsd/gnu/usr.bin/perl/
H A Dperl.c260 PL_rs = newSVpvs("\n"); in perl_construct()
1033 SvREFCNT_dec(PL_rs); /* $/ */ in perl_destruct()
1034 PL_rs = NULL; in perl_destruct()
3649 SvREFCNT_dec(PL_rs); in Perl_moreswitches()
3677 SvUTF8_on(PL_rs); in Perl_moreswitches()
3683 PL_rs = &PL_sv_undef; in Perl_moreswitches()
3685 PL_rs = newSVpvs(""); in Perl_moreswitches()
3782 SvREFCNT_dec(PL_rs); in Perl_moreswitches()
3783 PL_rs = &PL_sv_undef; in Perl_moreswitches()
3843 if (RsPARA(PL_rs)) { in Perl_moreswitches()
[all …]
H A Dembedvar.h254 # define PL_rs (vTHX->Irs) macro
H A Dmg.c3294 sv_setsv(sv, PL_rs); in Perl_magic_set()
3299 sv_setsv(sv, PL_rs); in Perl_magic_set()
3305 SvREFCNT_dec(PL_rs); in Perl_magic_set()
3306 PL_rs = newSVsv(sv); in Perl_magic_set()
H A Dpp.c767 if (chomping && (RsSNARF(PL_rs) || RsRECORD(PL_rs))) in S_do_chomp()
798 if (RsPARA(PL_rs)) { in S_do_chomp()
810 const char *rsptr = SvPV_const(PL_rs, rslen); in S_do_chomp()
812 rs_charlen = SvUTF8(PL_rs) in S_do_chomp()
813 ? sv_len_utf8(PL_rs) in S_do_chomp()
816 if (SvUTF8(PL_rs) != SvUTF8(sv)) { in S_do_chomp()
818 if (SvUTF8(PL_rs)) { in S_do_chomp()
H A Dpp_sys.c310 SAVESPTR(PL_rs); in PP()
311 PL_rs = &PL_sv_undef; in PP()
514 SAVESPTR(PL_rs); /* This is not permanent, either. */ in PP()
515 PL_rs = newSVpvs_flags("\000", SVs_TEMP); in PP()
518 *SvPVX(PL_rs) = '\n'; in PP()
H A Dsv.c8639 const STRLEN recsize = SvUV(SvRV(PL_rs)); /* RsRECORD() guarantees > 0. */
8811 else if (RsSNARF(PL_rs)) {
8834 else if (RsRECORD(PL_rs)) {
8837 else if (RsPARA(PL_rs)) {
8845 rsptr = SvPVutf8(PL_rs, rslen);
8848 if (SvUTF8(PL_rs)) {
8849 if (!sv_utf8_downgrade(PL_rs, TRUE)) {
8854 rsptr = SvPV_const(PL_rs, rslen);
16314 PL_rs = sv_dup_inc(proto_perl->Irs, param);
17563 if (SvROK(PL_rs) && uninit_sv == SvRV(PL_rs))
H A Dpp_hot.c4218 || SNARF_EOF(gimme, PL_rs, io, sv) in Perl_do_readline()
4279 if (SvCUR(sv) > 0 && SvCUR(PL_rs) > 0) { in Perl_do_readline()
4281 if (*tmps == *SvPVX_const(PL_rs)) { in Perl_do_readline()
H A Dutil.c1644 const bool line_mode = (RsSIMPLE(PL_rs) && in Perl_mess_sv()
1645 *SvPV_const(PL_rs,l) == '\n' && l == 1); in Perl_mess_sv()
/openbsd/gnu/usr.bin/perl/pod/
H A Dperl5203delta.pod172 to an array, for example, perl would produce a runtime error and not set PL_rs,
H A Dperl5220delta.pod3057 C<PL_rs>, but Perl code that checked C<$/> would see the array
/openbsd/gnu/usr.bin/perl/dist/Devel-PPPort/parts/base/
H A D5005000500 PL_rs # Z added by devel/scanprov
/openbsd/gnu/usr.bin/perl/dist/Devel-PPPort/parts/
H A Dapidoc.fnc727 mnd|SV*|PL_rs