page_size = sysconf(_SC_PAGESIZE);
# else
page_size = sysconf(_SC_PAGE_SIZE);
-# endif
+# endif
if ((long)page_size < 0) {
if (errno) {
SV *error = ERRSV;
STRLEN n_a;
(void)SvUPGRADE(error, SVt_PV);
msg = SvPVx(error, n_a);
- Perl_croak("panic: sysconf: %s", msg);
+ Perl_croak(aTHX_ "panic: sysconf: %s", msg);
}
else
- Perl_croak("panic: sysconf: pagesize unknown");
+ Perl_croak(aTHX_ "panic: sysconf: pagesize unknown");
}
}
#else
# endif
#endif
if ((IV)page_size <= 0)
- Perl_croak("panic: bad pagesize %"IVdf, (IV)page_size);
+ Perl_croak(aTHX_ "panic: bad pagesize %"IVdf, (IV)page_size);
}
if (b->posn < 0)
{
PerlIO_getpos(PerlIO *f, Fpos_t *pos)
{
*pos = PerlIO_tell(f);
- return 0;
+ return *pos == -1 ? -1 : 0;
}
#else
#ifndef PERLIO_IS_STDIO
if (strlen(s) >= (STRLEN)n)
{
dTHX;
- PerlIO_puts(Perl_error_log,"panic: sprintf overflow - memory corrupted!\n");
+ (void)PerlIO_puts(Perl_error_log,
+ "panic: sprintf overflow - memory corrupted!\n");
my_exit(1);
}
}