return -1;
}
}
- else
+ else {
Perl_warn(aTHX_ "perlio: unknown layer \"%.*s\"",(int)llen,s);
+ return -1;
+ }
}
s = e;
}
IV
PerlIOStdio_pushed(PerlIO *f, const char *mode, const char *arg, STRLEN len)
{
+ dTHX;
if (*PerlIONext(f))
{
PerlIOStdio *s = PerlIOSelf(f,PerlIOStdio);