patch for PerlIO::subfile