newXSproto("Internals::SvREFCNT",XS_Internals_SvREFCNT, file, "\\[$%@];$");
newXSproto("Internals::hv_clear_placeholders",
XS_Internals_hv_clear_placehold, file, "\\%");
- newXS("PerlIO::get_layers", XS_PerlIO_get_layers, file);
+ newXSproto("PerlIO::get_layers",
+ XS_PerlIO_get_layers, file, "*;@");
}
dXSARGS;
if (items < 1 || items % 2 == 0)
Perl_croak(aTHX_ "Usage: PerlIO_get_layers(filehandle[,args])");
+#ifdef USE_PERLIO
{
SV * sv;
GV * gv;
XSRETURN(nitem);
}
}
+#endif
XSRETURN(0);
}