diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-22 21:00:44 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-22 21:00:44 +0000 |
| commit | 9cde0e7fb9816f759feaabc0f640403a7cdbc5c6 (patch) | |
| tree | 36f6317054f838576f53a56cc55ef37a6ecc241c /pod/perlxs.pod | |
| parent | b61d194ccc4ffeadd2cf0ae98317321309a3dd04 (diff) | |
| download | perl-9cde0e7fb9816f759feaabc0f640403a7cdbc5c6.tar.gz | |
Update perldelta and Changes; refresh perltoc; newer perlembed.pod
from Jon Orwant <orwant@media.mit.edu>; update guts documentation
to reflect PL_* changes; is this *it* for 5.005?
p4raw-id: //depot/perl@1646
Diffstat (limited to 'pod/perlxs.pod')
| -rw-r--r-- | pod/perlxs.pod | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/pod/perlxs.pod b/pod/perlxs.pod index 1eea753c61..c578a2ec59 100644 --- a/pod/perlxs.pod +++ b/pod/perlxs.pod @@ -372,7 +372,7 @@ and C<$type> can be used as in typemaps. bool_t rpcb_gettime(host,timep) - char *host = (char *)SvPV($arg,na); + char *host = (char *)SvPV($arg,PL_na); time_t &timep = 0; OUTPUT: timep @@ -396,7 +396,7 @@ initialization. bool_t rpcb_gettime(host,timep) time_t &timep ; /*\$v{time}=@{[$v{time}=$arg]}*/ - char *host + SvOK($v{time}) ? SvPV($arg,na) : NULL; + char *host + SvOK($v{time}) ? SvPV($arg,PL_na) : NULL; OUTPUT: timep @@ -555,7 +555,7 @@ The XS code, with ellipsis, follows. char *host = "localhost"; CODE: if( items > 1 ) - host = (char *)SvPV(ST(1), na); + host = (char *)SvPV(ST(1), PL_na); RETVAL = rpcb_gettime( host, &timep ); OUTPUT: timep @@ -681,7 +681,7 @@ return value, should the need arise. sv_setnv( ST(0), (double)timep); } else{ - ST(0) = &sv_undef; + ST(0) = &PL_sv_undef; } To return an empty list one must use a PPCODE: block and @@ -788,7 +788,7 @@ prototypes. char *host = "localhost"; CODE: if( items > 1 ) - host = (char *)SvPV(ST(1), na); + host = (char *)SvPV(ST(1), PL_na); RETVAL = rpcb_gettime( host, &timep ); OUTPUT: timep |