diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-20 09:38:39 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-20 09:38:39 +0000 |
| commit | 6b88bc9c1f6d4b32c70e7ef68f8c65266e431623 (patch) | |
| tree | fe4f20be7c31cd96c8757067c3aefe35ea971694 /os2/OS2 | |
| parent | 045c1f128ac729dc76c4da7e8ffe34bf12692b94 (diff) | |
| download | perl-6b88bc9c1f6d4b32c70e7ef68f8c65266e431623.tar.gz | |
complete s/foo/PL_foo/ changes (all escaped cases identified with
brute force search script). Result builds and passes all tests on
Solaris. win32 and PERL_OBJECT are still untested.
p4raw-id: //depot/perl@1578
Diffstat (limited to 'os2/OS2')
| -rw-r--r-- | os2/OS2/PrfDB/PrfDB.xs | 6 | ||||
| -rw-r--r-- | os2/OS2/PrfDB/typemap | 2 | ||||
| -rw-r--r-- | os2/OS2/REXX/REXX.xs | 10 |
3 files changed, 9 insertions, 9 deletions
diff --git a/os2/OS2/PrfDB/PrfDB.xs b/os2/OS2/PrfDB/PrfDB.xs index 5465e1d136..13123200a2 100644 --- a/os2/OS2/PrfDB/PrfDB.xs +++ b/os2/OS2/PrfDB/PrfDB.xs @@ -20,13 +20,13 @@ Prf_Get(HINI hini, PSZ app, PSZ key) { BOOL rc; SV *sv; - if (CheckWinError(PrfQueryProfileSize(hini, app, key, &len))) return &sv_undef; + if (CheckWinError(PrfQueryProfileSize(hini, app, key, &len))) return &PL_sv_undef; sv = newSVpv("", 0); SvGROW(sv, len + 1); if (CheckWinError(PrfQueryProfileData(hini, app, key, SvPVX(sv), &len)) || (len == 0 && (app == NULL || key == NULL))) { /* Somewhy needed. */ SvREFCNT_dec(sv); - return &sv_undef; + return &PL_sv_undef; } SvCUR_set(sv, len); *SvEND(sv) = 0; @@ -59,7 +59,7 @@ Prf_Profiles() char system[257]; PRFPROFILE info = { 257, user, 257, system}; - if (CheckWinError(PrfQueryProfile(Perl_hab, &info))) return &sv_undef; + if (CheckWinError(PrfQueryProfile(Perl_hab, &info))) return &PL_sv_undef; if (info.cchUserName > 257 || info.cchSysName > 257) die("Panic: Profile names too long"); av_push(av, newSVpv(user, info.cchUserName - 1)); diff --git a/os2/OS2/PrfDB/typemap b/os2/OS2/PrfDB/typemap index 0b91f3750a..eb2722bda5 100644 --- a/os2/OS2/PrfDB/typemap +++ b/os2/OS2/PrfDB/typemap @@ -7,7 +7,7 @@ PSZ T_PVNULL ############################################################################# INPUT T_PVNULL - $var = ( SvOK($arg) ? ($type)SvPV($arg,na) : NULL ) + $var = ( SvOK($arg) ? ($type)SvPV($arg,PL_na) : NULL ) ############################################################################# OUTPUT T_PVNULL diff --git a/os2/OS2/REXX/REXX.xs b/os2/OS2/REXX/REXX.xs index 14489f965d..2d13f3e81e 100644 --- a/os2/OS2/REXX/REXX.xs +++ b/os2/OS2/REXX/REXX.xs @@ -94,9 +94,9 @@ exec_in_REXX(char *cmd, char * handlerName, RexxFunctionHandler *handler) } else { res = NEWSV(729,0); } - if (rc || SvTRUE(GvSV(errgv))) { - if (SvTRUE(GvSV(errgv))) { - die ("Error inside perl function called from REXX compartment.\n%s", SvPV(GvSV(errgv), na)) ; + if (rc || SvTRUE(GvSV(PL_errgv))) { + if (SvTRUE(GvSV(PL_errgv))) { + die ("Error inside perl function called from REXX compartment.\n%s", SvPV(GvSV(PL_errgv), PL_na)) ; } die ("REXX compartment returned non-zero status %li", rc); } @@ -374,7 +374,7 @@ _fetch(name, ...) var->shvname.strlength, var->shvname.strptr, namelen, var->shvvalue.strptr); if (var->shvret & RXSHV_NEWV || !var->shvvalue.strptr) - PUSHs(&sv_undef); + PUSHs(&PL_sv_undef); else PUSHs(sv_2mortal(newSVpv(var->shvvalue.strptr, namelen))); @@ -428,7 +428,7 @@ _next(stem) PUSHs(sv_2mortal(newSVpv(sv.shvvalue.strptr, valuelen))); DosFreeMem(sv.shvvalue.strptr); } else - PUSHs(&sv_undef); + PUSHs(&PL_sv_undef); } else if (rc != RXSHV_LVAR) { die("Error %i when in _next", rc); } else { |