diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-12-22 17:00:24 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-12-22 17:00:24 +0000 |
| commit | bfd025d94e67a140ec0eeee79dfcef213d537327 (patch) | |
| tree | 30474f4613349a3cd9ae40f5ed51ab0628239375 /pod | |
| parent | d3f5e39945c1adca90422be3853d860ba9478c11 (diff) | |
| download | perl-bfd025d94e67a140ec0eeee79dfcef213d537327.tar.gz | |
Exterminate PL_na! Exterminate! Exterminate! Exterminate!
p4raw-id: //depot/perl@32704
Diffstat (limited to 'pod')
| -rw-r--r-- | pod/perltodo.pod | 5 | ||||
| -rw-r--r-- | pod/perlxs.pod | 4 |
2 files changed, 2 insertions, 7 deletions
diff --git a/pod/perltodo.pod b/pod/perltodo.pod index d869b67c87..f270d6b979 100644 --- a/pod/perltodo.pod +++ b/pod/perltodo.pod @@ -365,11 +365,6 @@ Make F<pod/roffitall> be updated by F<pod/buildtoc>. These tasks would need a little C knowledge, but don't need any specific background or experience with XS, or how the Perl interpreter works -=head2 Exterminate PL_na! - -C<PL_na> festers still in the darkest corners of various typemap files. -It needs to be exterminated, replaced by a local variable of type C<STRLEN>. - =head2 Modernize the order of directories in @INC The way @INC is laid out by default, one cannot upgrade core (dual-life) diff --git a/pod/perlxs.pod b/pod/perlxs.pod index facfcf91ab..c045564a6d 100644 --- a/pod/perlxs.pod +++ b/pod/perlxs.pod @@ -562,7 +562,7 @@ and $type can be used as in typemaps. bool_t rpcb_gettime(host,timep) - char *host = (char *)SvPV($arg,PL_na); + char *host = (char *)SvPV_nolen($arg); time_t &timep = 0; OUTPUT: timep @@ -589,7 +589,7 @@ Here's a truly obscure example: bool_t rpcb_gettime(host,timep) time_t &timep; /* \$v{timep}=@{[$v{timep}=$arg]} */ - char *host + SvOK($v{timep}) ? SvPV($arg,PL_na) : NULL; + char *host + SvOK($v{timep}) ? SvPV_nolen($arg) : NULL; OUTPUT: timep |