diff options
| author | Chip Salzenberg <chip@pobox.com> | 2003-02-24 14:54:36 +0000 |
|---|---|---|
| committer | chip <chip@pobox.com> | 2003-02-24 14:54:36 +0000 |
| commit | 8fde6460a7cb90e344d87e1652b5fa8d61c68699 (patch) | |
| tree | 8e084d6b0ec660862c9e98409066b05a54977e9d /win32/perlhost.h | |
| parent | 573e01ca889ca9a9ae046f92457272ab11ee63d8 (diff) | |
| download | perl-8fde6460a7cb90e344d87e1652b5fa8d61c68699.tar.gz | |
Use PL_{argv,stdin,stdout}gv to avoid unnecessary gv_fetch calls.
p4raw-id: //depot/perl@18763
Diffstat (limited to 'win32/perlhost.h')
| -rw-r--r-- | win32/perlhost.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/win32/perlhost.h b/win32/perlhost.h index b68f5c771b..371a3a5edc 100644 --- a/win32/perlhost.h +++ b/win32/perlhost.h @@ -1774,9 +1774,9 @@ restart: win32_checkTLS(my_perl); /* close the std handles to avoid fd leaks */ { - do_close(gv_fetchpv("STDIN", TRUE, SVt_PVIO), FALSE); - do_close(gv_fetchpv("STDOUT", TRUE, SVt_PVIO), FALSE); - do_close(gv_fetchpv("STDERR", TRUE, SVt_PVIO), FALSE); + do_close(PL_stdingv, FALSE); + do_close(gv_fetchpv("STDOUT", TRUE, SVt_PVIO), FALSE); /* PL_stdoutgv - ISAGN */ + do_close(PL_stderrgv, FALSE); } /* destroy everything (waits for any pseudo-forked children) */ |