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 /ext/IPC | |
| 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 'ext/IPC')
| -rw-r--r-- | ext/IPC/SysV/SysV.xs | 36 |
1 files changed, 1 insertions, 35 deletions
diff --git a/ext/IPC/SysV/SysV.xs b/ext/IPC/SysV/SysV.xs index b97e9e5893..3503ad92b1 100644 --- a/ext/IPC/SysV/SysV.xs +++ b/ext/IPC/SysV/SysV.xs @@ -32,40 +32,6 @@ # include <vm/vm_param.h> #endif -#ifndef newCONSTSUB -static void -newCONSTSUB(stash,name,sv) - HV *stash; - char *name; - SV *sv; -{ -#ifdef dTHR - dTHR; -#endif - U32 oldhints = hints; - HV *old_cop_stash = curcop->cop_stash; - HV *old_curstash = curstash; - line_t oldline = curcop->cop_line; - curcop->cop_line = copline; - - hints &= ~HINT_BLOCK_SCOPE; - if(stash) - curstash = curcop->cop_stash = stash; - - newSUB( - start_subparse(FALSE, 0), - newSVOP(OP_CONST, 0, newSVpv(name,0)), - newSVOP(OP_CONST, 0, &sv_no), /* SvPV(&sv_no) == "" -- GMB */ - newSTATEOP(0, Nullch, newSVOP(OP_CONST, 0, sv)) - ); - - hints = oldhints; - curcop->cop_stash = old_cop_stash; - curstash = old_curstash; - curcop->cop_line = oldline; -} -#endif - MODULE=IPC::SysV PACKAGE=IPC::Msg::stat PROTOTYPES: ENABLE @@ -199,7 +165,7 @@ ftok(path, id) CODE: #if defined(HAS_SEM) || defined(HAS_SHM) key_t k = ftok(path, id); - ST(0) = k == (key_t) -1 ? &sv_undef : sv_2mortal(newSViv(k)); + ST(0) = k == (key_t) -1 ? &PL_sv_undef : sv_2mortal(newSViv(k)); #else DIE(no_func, "ftok"); #endif |