use Inline C => Config =>
    CLEAN_AFTER_BUILD => 1,
    BUILD_NOISY => 1;

use Inline C => <<'EOC';

SV * foo(FILE * stream) {
     return newSVuv(42);
}

EOC

print foo(*STDOUT);

##</code><code>##

try_pl_0446.c: In function `XS_main_foo':
try_pl_0446.c:28: warning: initialization from incompatible pointer type

##</code><code>##

FILE *	stream = IoIFP(sv_2io(ST(0)));

##</code><code>##

FILE *	stream = PerlIO_findFILE(IoIFP(sv_2io(ST(0))));