diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-01-19 04:52:18 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-01-19 04:52:18 +0000 |
| commit | 3028581bb6e49415e90ca9e7935ef77e075f56d6 (patch) | |
| tree | 3148ee21a20fd6a2f6d71d3109fc2ae066463314 /toke.c | |
| parent | 377729033bd4c3e2f6c0ac6b0d2bde9a83c5da6d (diff) | |
| download | perl-3028581bb6e49415e90ca9e7935ef77e075f56d6.tar.gz | |
[win32] foo() -> PerlGroup_foo() patch from ActiveState
p4raw-id: //depot/win32/perl@433
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -389,7 +389,7 @@ skipspace(register char *s) oldoldbufptr = oldbufptr = bufptr = s = linestart = SvPVX(linestr); bufend = SvPVX(linestr) + SvCUR(linestr); if (preprocess && !in_eval) - (void)my_pclose(rsfp); + (void)PerlProc_pclose(rsfp); else if ((PerlIO*)rsfp == PerlIO_stdin()) PerlIO_clearerr(rsfp); else @@ -1064,7 +1064,7 @@ static char* incl_perldb(void) { if (perldb) { - char *pdb = getenv("PERL5DB"); + char *pdb = PerlENV_getenv("PERL5DB"); if (pdb) return pdb; @@ -1560,7 +1560,7 @@ yylex(void) fake_eof: if (rsfp) { if (preprocess && !in_eval) - (void)my_pclose(rsfp); + (void)PerlProc_pclose(rsfp); else if ((PerlIO *)rsfp == PerlIO_stdin()) PerlIO_clearerr(rsfp); else |