Fmode.xs - corrections to allow for PERL_NO_GET_CONTEXT