Select Code to Download

# with explicit close

...
dup2(4, 1)                              = 1
close(4)                                = 0
fcntl(1, F_SETFD, 0)                    = 0

#define Perl_PerlIO_or_Base(f, callback, base, failure, args)   \
        if (PerlIOValid(f)) {                                   \
...
{
     Perl_PerlIO_or_Base(f, Read, read, -1, (aTHX_ f, vbuf, count));
}