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 /win32 | |
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 'win32')
-rw-r--r-- | win32/win32.c | 14 | ||||
-rw-r--r-- | win32/win32thread.c | 6 |
2 files changed, 10 insertions, 10 deletions
diff --git a/win32/win32.c b/win32/win32.c index 1f7883bc52..13f11e3cc7 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -474,7 +474,7 @@ do_aspawn(void *vreally, void **vmark, void **vsp) } while (++mark <= sp) { - if (*mark && (str = SvPV(*mark, na))) + if (*mark && (str = SvPV(*mark, PL_na))) argv[index++] = str; else argv[index++] = ""; @@ -482,7 +482,7 @@ do_aspawn(void *vreally, void **vmark, void **vsp) argv[index++] = 0; status = win32_spawnvp(flag, - (const char*)(really ? SvPV(really,na) : argv[0]), + (const char*)(really ? SvPV(really,PL_na) : argv[0]), (const char* const*)argv); if (status < 0 && errno == ENOEXEC) { @@ -495,7 +495,7 @@ do_aspawn(void *vreally, void **vmark, void **vsp) argv[sh_items] = w32_perlshell_vec[sh_items]; status = win32_spawnvp(flag, - (const char*)(really ? SvPV(really,na) : argv[0]), + (const char*)(really ? SvPV(really,PL_na) : argv[0]), (const char* const*)argv); } @@ -2122,7 +2122,7 @@ XS(w32_SetCwd) dXSARGS; if (items != 1) croak("usage: Win32::SetCurrentDirectory($cwd)"); - if (SetCurrentDirectory(SvPV(ST(0),na))) + if (SetCurrentDirectory(SvPV(ST(0),PL_na))) XSRETURN_YES; XSRETURN_NO; @@ -2305,8 +2305,8 @@ XS(w32_Spawn) if (items != 3) croak("usage: Win32::Spawn($cmdName, $args, $PID)"); - cmd = SvPV(ST(0),na); - args = SvPV(ST(1), na); + cmd = SvPV(ST(0),PL_na); + args = SvPV(ST(1), PL_na); memset(&stStartInfo, 0, sizeof(stStartInfo)); /* Clear the block */ stStartInfo.cb = sizeof(stStartInfo); /* Set the structure size */ @@ -2362,7 +2362,7 @@ XS(w32_GetShortPathName) ST(0) = shortpath; } else - ST(0) = &sv_undef; + ST(0) = &PL_sv_undef; XSRETURN(1); } diff --git a/win32/win32thread.c b/win32/win32thread.c index e91830d38d..14ac5d7f42 100644 --- a/win32/win32thread.c +++ b/win32/win32thread.c @@ -18,7 +18,7 @@ Perl_setTHR(struct perl_thread *t) #ifdef USE_DECLSPEC_THREAD Perl_current_thread = t; #else - TlsSetValue(thr_key,t); + TlsSetValue(PL_thr_key,t); #endif #endif } @@ -30,7 +30,7 @@ Perl_getTHR(void) #ifdef USE_DECLSPEC_THREAD return Perl_current_thread; #else - return (struct perl_thread *) TlsGetValue(thr_key); + return (struct perl_thread *) TlsGetValue(PL_thr_key); #endif #else return NULL; @@ -43,7 +43,7 @@ Perl_alloc_thread_key(void) #ifdef USE_THREADS static int key_allocated = 0; if (!key_allocated) { - if ((thr_key = TlsAlloc()) == TLS_OUT_OF_INDEXES) + if ((PL_thr_key = TlsAlloc()) == TLS_OUT_OF_INDEXES) croak("panic: TlsAlloc"); key_allocated = 1; } |