API Variable documentation

Message-ID: <20010115193554.A9919@pembro26.pmb.ox.ac.uk>

p4raw-id: //depot/perl@8447

diff --git a/pod/perlapi.pod b/pod/perlapi.pod
index f5596e2..e676431 100644 (file)
--- a/pod/perlapi.pod
+++ b/pod/perlapi.pod
@@ -1486,6 +1486,15 @@ The C variable which corresponds to Perl's $^W warning variable.
 =for hackers
 Found in file intrpvar.h
 
+=item PL_last_in_gv
+
+The GV which was last used for a filehandle input operation. (C<< <FH> >>)
+
+       GV*     PL_last_in_gv
+
+=for hackers
+Found in file thrdvar.h
+
 =item PL_modglobal
 
 C<PL_modglobal> is a general purpose, interpreter global HV for use by
@@ -1511,6 +1520,24 @@ C<SvPV_nolen> macro.
 =for hackers
 Found in file thrdvar.h
 
+=item PL_ofs_sv
+
+The output field separator - C<$,> in Perl space.
+
+       SV*     PL_ofs_sv
+
+=for hackers
+Found in file thrdvar.h
+
+=item PL_rs
+
+The input record separator - C<$/> in Perl space.
+
+       SV*     PL_rs
+
+=for hackers
+Found in file thrdvar.h
+
 =item PL_sv_no
 
 This is the C<false> SV.  See C<PL_sv_yes>.  Always refer to this as
@@ -2369,19 +2396,19 @@ false, defined or undefined.  Does not handle 'get' magic.
 =for hackers
 Found in file sv.h
 
-=item svtype
+=item SvTYPE
 
-An enum of flags for Perl types.  These are found in the file B<sv.h> 
-in the C<svtype> enum.  Test these flags with the C<SvTYPE> macro.
+Returns the type of the SV.  See C<svtype>.
+
+       svtype  SvTYPE(SV* sv)
 
 =for hackers
 Found in file sv.h
 
-=item SvTYPE
-
-Returns the type of the SV.  See C<svtype>.
+=item svtype
 
-       svtype  SvTYPE(SV* sv)
+An enum of flags for Perl types.  These are found in the file B<sv.h> 
+in the C<svtype> enum.  Test these flags with the C<SvTYPE> macro.
 
 =for hackers
 Found in file sv.h

diff --git a/thrdvar.h b/thrdvar.h
index 7f591d9..e0fe105 100644 (file)
--- a/thrdvar.h
+++ b/thrdvar.h
@@ -82,6 +82,23 @@ PERLVAR(Ttimesbuf,   struct tms)
 PERLVAR(Ttainted,      bool)           /* using variables controlled by $< */
 PERLVAR(Tcurpm,                PMOP *)         /* what to do \ interps in REs from */
 PERLVAR(Tnrs,          SV *)
+
+/*
+=for apidoc Amn|SV*|PL_rs
+
+The input record separator - C<$/> in Perl space.
+
+=for apidoc Amn|GV*|PL_last_in_gv
+
+The GV which was last used for a filehandle input operation. (C<< <FH> >>)
+
+=for apidoc Amn|SV*|PL_ofs_sv
+
+The output field separator - C<$,> in Perl space.
+
+=cut
+*/
+
 PERLVAR(Trs,           SV *)           /* input record separator $/ */
 PERLVAR(Tlast_in_gv,   GV *)           /* GV used in last <FH> */
 PERLVAR(Tofs_sv,       SV *)           /* output field separator $, */