diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-08-10 21:54:00 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-08-10 21:54:00 +0000 |
| commit | 1c5b513e3fd8bc7a5a38ca94832b9e848ef0301d (patch) | |
| tree | 205494c8824cf25aa4a0f5e4f5fd2fc5734daee0 /pod/perlxs.pod | |
| parent | ffe4764e6903def60304ff584612fb863707cd05 (diff) | |
| download | perl-1c5b513e3fd8bc7a5a38ca94832b9e848ef0301d.tar.gz | |
Purge C<n_a> thoughtcrime from the pods.
p4raw-id: //depot/perl@34197
Diffstat (limited to 'pod/perlxs.pod')
| -rw-r--r-- | pod/perlxs.pod | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/pod/perlxs.pod b/pod/perlxs.pod index 9e70c69126..c2cae2269a 100644 --- a/pod/perlxs.pod +++ b/pod/perlxs.pod @@ -950,10 +950,9 @@ The XS code, with ellipsis, follows. time_t timep = NO_INIT PREINIT: char *host = "localhost"; - STRLEN n_a; CODE: if( items > 1 ) - host = (char *)SvPV(ST(1), n_a); + host = (char *)SvPV_nolen(ST(1)); RETVAL = rpcb_gettime( host, &timep ); OUTPUT: timep @@ -1242,10 +1241,9 @@ prototypes. PROTOTYPE: $;$ PREINIT: char *host = "localhost"; - STRLEN n_a; CODE: if( items > 1 ) - host = (char *)SvPV(ST(1), n_a); + host = (char *)SvPV_nolen(ST(1)); RETVAL = rpcb_gettime( host, &timep ); OUTPUT: timep |