X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fperlguts.pod;h=e8898765a8000e22c9e3d2144a85da8039b0eb0f;hb=6e0733998eff7a098d2d21d5602f3eb2a7521e1f;hp=8231592db088c97b7f47757ebc49572b2547d175;hpb=cbfd0a879b2bf2ade4a309e6d56c08ba19f320e1;p=p5sagit%2Fp5-mst-13.2.git diff --git a/pod/perlguts.pod b/pod/perlguts.pod index 8231592..e889876 100644 --- a/pod/perlguts.pod +++ b/pod/perlguts.pod @@ -191,7 +191,7 @@ have "magic". See L later in this document. If you know the name of a scalar variable, you can get a pointer to its SV by using the following: - SV* get_sv("package::varname", FALSE); + SV* get_sv("package::varname", 0); This returns NULL if the variable does not exist. @@ -600,7 +600,7 @@ The most useful types that will be returned are: SVt_PVGV Glob (possible a file handle) SVt_PVMG Blessed or Magical Scalar - See the sv.h header file for more details. +See the F header file for more details. =head2 Blessed References and Class Objects @@ -667,7 +667,7 @@ to write: To create a new Perl variable with an undef value which can be accessed from your Perl script, use the following routines, depending on the variable type. - SV* get_sv("package::varname", TRUE); + SV* get_sv("package::varname", GV_ADD); AV* get_av("package::varname", GV_ADD); HV* get_hv("package::varname", GV_ADD); @@ -878,7 +878,7 @@ following code: extern int dberror; extern char *dberror_list; - SV* sv = get_sv("dberror", TRUE); + SV* sv = get_sv("dberror", GV_ADD); sv_setiv(sv, (IV) dberror); sv_setpv(sv, dberror_list[dberror]); SvIOK_on(sv);