diff options
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 |