diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-21 05:29:10 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-21 05:29:10 +0000 |
| commit | 4c2891ed1c6b8a97b3d1318b04ed56b17dd4de31 (patch) | |
| tree | 66b0c0aa1fae76814595482bf9a40ad412c8dd7e /globals.c | |
| parent | c340be789461bf7b71a88fa49cdeb84bdbd0b389 (diff) | |
| download | perl-4c2891ed1c6b8a97b3d1318b04ed56b17dd4de31.tar.gz | |
part 1 of PERL_OBJECT fixes for new var names
p4raw-id: //depot/perl@1607
Diffstat (limited to 'globals.c')
| -rw-r--r-- | globals.c | 18 |
1 files changed, 9 insertions, 9 deletions
@@ -1412,9 +1412,9 @@ fprintf(PerlIO *stream, const char *format, ...) #undef PERLVAR #define PERLVAR(x, y) #undef PERLVARI -#define PERLVARI(x, y, z) x = z; +#define PERLVARI(x, y, z) PL_##x = z; #undef PERLVARIC -#define PERLVARIC(x, y, z) x = z; +#define PERLVARIC(x, y, z) PL_##x = z; CPerlObj::CPerlObj(IPerlMem* ipM, IPerlEnv* ipE, IPerlStdIO* ipStd, IPerlLIO* ipLIO, IPerlDir* ipD, IPerlSock* ipS, IPerlProc* ipP) @@ -1425,13 +1425,13 @@ CPerlObj::CPerlObj(IPerlMem* ipM, IPerlEnv* ipE, IPerlStdIO* ipStd, #include "intrpvar.h" #include "perlvars.h" - piMem = ipM; - piENV = ipE; - piStdIO = ipStd; - piLIO = ipLIO; - piDir = ipD; - piSock = ipS; - piProc = ipP; + PL_piMem = ipM; + PL_piENV = ipE; + PL_piStdIO = ipStd; + PL_piLIO = ipLIO; + PL_piDir = ipD; + PL_piSock = ipS; + PL_piProc = ipP; } void* |