diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-01-30 08:54:19 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-01-30 08:54:19 +0000 |
| commit | 6ad3d225cec2692b410002582f5558652eea32c8 (patch) | |
| tree | a75531c0d01d25dcc35d8b3eca5857b3fc4e34fd /toke.c | |
| parent | e7152ba2733b9227708ca768b222144415c13c66 (diff) | |
| download | perl-6ad3d225cec2692b410002582f5558652eea32c8.tar.gz | |
[asperl] Created new branch from win32@396, added AS patch#1
p4raw-link: @396 on //depot/win32/perl: e7152ba2733b9227708ca768b222144415c13c66
p4raw-id: //depot/asperl@441
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 |