This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: c0b3891) | patch
Move the close-on-exec logic to one place, at the end of S_open_script().
authorNicholas Clark <nick@ccl4.org>
Thu, 23 Feb 2012 16:45:26 +0000 (17:45 +0100)
committerNicholas Clark <nick@ccl4.org>
Mon, 27 Feb 2012 10:31:48 +0000 (11:31 +0100)
commita7c8193001a8197325b9fbb189ee567db3ca6219
tree0793f1993533704acb03a0d45f82b62337de2fe7tree | snapshot
parentc0b3891a0ac343a3eaf6b03bd8fd33242e3280aacommit | diff
Move the close-on-exec logic to one place, at the end of S_open_script().

Now that the logic for stdin is implemented as an early return of NULL from
S_open_script(), in all cases that reach the end of S_open_script(), rsfp
is non-NULL, and a file handle that we wish to set to close on exec.
perl.c diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.