void
PerlIO_debug(const char *fmt, ...)
{
-#ifdef IAMSUID
static int dbg = 0;
va_list ap;
dSYS;
va_start(ap, fmt);
- if (!dbg) {
+ if (!dbg && !PL_tainting && PL_uid == PL_euid && PL_gid == PL_egid) {
char *s = PerlEnv_getenv("PERLIO_DEBUG");
if (s && *s)
dbg = PerlLIO_open3(s, O_WRONLY | O_CREAT | O_APPEND, 0666);
}
if (dbg > 0) {
dTHX;
+ const char *s;
#ifdef USE_ITHREADS
/* Use fixed buffer as sv_catpvf etc. needs SVs */
char buffer[1024];
- char *s;
STRLEN len;
s = CopFILE(PL_curcop);
if (!s)
s = "(none)";
- sprintf(buffer, "%s:%" IVdf " ", s, (IV) CopLINE(PL_curcop));
+ sprintf(buffer, "%.40s:%" IVdf " ", s, (IV) CopLINE(PL_curcop));
len = strlen(buffer);
vsprintf(buffer+len, fmt, ap);
PerlLIO_write(dbg, buffer, strlen(buffer));
#else
SV *sv = newSVpvn("", 0);
- char *s;
STRLEN len;
s = CopFILE(PL_curcop);
if (!s)
#endif
}
va_end(ap);
-#endif /* IAMSUID */
}
/*--------------------------------------------------------------------------------------*/
p = &(list->array[list->cur++]);
p->funcs = funcs;
if ((p->arg = arg)) {
- SvREFCNT_inc(arg);
+ (void)SvREFCNT_inc(arg);
}
}
PerlIOUnix_seek(pTHX_ PerlIO *f, Off_t offset, int whence)
{
int fd = PerlIOSelf(f, PerlIOUnix)->fd;
- Off_t new;
+ Off_t new_loc;
if (PerlIOBase(f)->flags & PERLIO_F_NOTREG) {
#ifdef ESPIPE
SETERRNO(ESPIPE, LIB_INVARG);
#endif
return -1;
}
- new = PerlLIO_lseek(fd, offset, whence);
- if (new == (Off_t) - 1)
+ new_loc = PerlLIO_lseek(fd, offset, whence);
+ if (new_loc == (Off_t) - 1)
{
return -1;
}
PerlIO_getname(PerlIO *f, char *buf)
{
dTHX;
- char *name = NULL;
#ifdef VMS
+ char *name = NULL;
bool exported = FALSE;
FILE *stdio = PerlIOSelf(f, PerlIOStdio)->stdio;
if (!stdio) {
name = fgetname(stdio, buf);
if (exported) PerlIO_releaseFILE(f,stdio);
}
+ return name;
#else
+ (void)f;
+ (void)buf;
Perl_croak(aTHX_ "Don't know how to get file name");
+ return Nullch;
#endif
- return name;
}