InputStream handle
CODE:
if (handle) {
- Fpos_t pos;
#ifdef PerlIO
- ST(0) = sv_newmortal();
#if PERL_VERSION < 8
+ Fpos_t pos;
+ ST(0) = sv_newmortal();
if (PerlIO_getpos(handle, &pos) != 0) {
ST(0) = &PL_sv_undef;
}
sv_setpvn(ST(0), (char *)&pos, sizeof(Fpos_t));
}
#else
+ ST(0) = sv_newmortal();
if (PerlIO_getpos(handle, ST(0)) != 0) {
ST(0) = &PL_sv_undef;
}