Fmode.xs - further correction to allow for PERL_NO_GET_CONTEXT