pub unsafe extern "C" fn Perl_PerlIO_get_base( my_perl: *mut PerlInterpreter, f: *mut PerlIO, ) -> *mut c_char