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 /os2 | |
| parent | d3f5e39945c1adca90422be3853d860ba9478c11 (diff) | |
| download | perl-bfd025d94e67a140ec0eeee79dfcef213d537327.tar.gz | |
Exterminate PL_na! Exterminate! Exterminate! Exterminate!
p4raw-id: //depot/perl@32704
Diffstat (limited to 'os2')
| -rw-r--r-- | os2/OS2/typemap | 4 | ||||
| -rw-r--r-- | os2/os2.c | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/os2/OS2/typemap b/os2/OS2/typemap index b6f0e079d1..12bd58d347 100644 --- a/os2/OS2/typemap +++ b/os2/OS2/typemap @@ -17,9 +17,9 @@ PCSZ T_PVNULLC ############################################################################# INPUT T_PVNULL - $var = ( SvOK($arg) ? ($type)SvPV($arg,PL_na) : NULL ) + $var = ( SvOK($arg) ? ($type)SvPV_nolen($arg) : NULL ) T_PVNULLC - $var = ( SvOK($arg) ? ($type)SvPV($arg,PL_na) : NULL ) + $var = ( SvOK($arg) ? ($type)SvPV_nolen($arg) : NULL ) ############################################################################# OUTPUT T_PVNULL @@ -4092,7 +4092,7 @@ XS(XS_OS2_pipe) Perl_croak(aTHX_ "Usage: OS2::pipe(pszName, ulOpenMode, connect= 1, count= 1, ulInbufLength= 8192, ulOutbufLength= ulInbufLength, ulPipeMode= count | NP_NOWAIT | NP_TYPE_BYTE | NP_READMODE_BYTE, ulTimeout= 0)"); { ULONG RETVAL; - PCSZ pszName = ( SvOK(ST(0)) ? (PCSZ)SvPV(ST(0),PL_na) : NULL ); + PCSZ pszName = ( SvOK(ST(0)) ? (PCSZ)SvPV_nolen(ST(0)) : NULL ); HPIPE hpipe; SV *OpenMode = ST(1); ULONG ulOpenMode; @@ -4450,7 +4450,7 @@ XS(XS_OS2_open) ULONG rc; #line 113 "pipe.c" ULONG RETVAL; - PCSZ pszFileName = ( SvOK(ST(0)) ? (PCSZ)SvPV(ST(0),PL_na) : NULL ); + PCSZ pszFileName = ( SvOK(ST(0)) ? (PCSZ)SvPV_nolen(ST(0)) : NULL ); HFILE hFile; ULONG ulAction; ULONG ulOpenMode = (ULONG)SvUV(ST(1)); |