summaryrefslogtreecommitdiff
path: root/pp_sys.c
diff options
context:
space:
mode:
Diffstat (limited to 'pp_sys.c')
-rw-r--r--pp_sys.c9
1 files changed, 5 insertions, 4 deletions
diff --git a/pp_sys.c b/pp_sys.c
index 690bc9d381..9068b0e61a 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1270,6 +1270,7 @@ PP(pp_enterwrite)
register IO *io;
GV *fgv;
CV *cv;
+ SV * tmpsv = NULL;
if (MAXARG == 0)
gv = PL_defoutgv;
@@ -1293,8 +1294,8 @@ PP(pp_enterwrite)
cv = GvFORM(fgv);
if (!cv) {
- SV * const tmpsv = sv_newmortal();
const char *name;
+ tmpsv = sv_newmortal();
gv_efullname4(tmpsv, fgv, NULL, FALSE);
name = SvPV_nolen_const(tmpsv);
if (name && *name)
@@ -1622,7 +1623,7 @@ PP(pp_sysread)
buffer = SvGROW(bufsv, (STRLEN)(length+1));
/* 'offset' means 'flags' here */
count = PerlSock_recvfrom(PerlIO_fileno(IoIFP(io)), buffer, length, offset,
- (struct sockaddr *)namebuf, &bufsize);
+ (struct sockaddr *)namebuf, &bufsize);
if (count < 0)
RETPUSHUNDEF;
#ifdef EPOC
@@ -2785,7 +2786,7 @@ PP(pp_stat)
{
dVAR;
dSP;
- GV *gv;
+ GV *gv = NULL;
IO *io;
I32 gimme;
I32 max = 13;
@@ -4650,7 +4651,7 @@ PP(pp_ghostent)
STRLEN addrlen;
Netdb_host_t addr = (Netdb_host_t) SvPVbyte(addrsv, addrlen);
- hent = PerlSock_gethostbyaddr(addr, (Netdb_hlen_t) addrlen, addrtype);
+ hent = PerlSock_gethostbyaddr((const void*)addr, (Netdb_hlen_t) addrlen, addrtype);
#else
DIE(aTHX_ PL_no_sock_func, "gethostbyaddr");
#endif