diff options
| -rw-r--r-- | doio.c | 2 | ||||
| -rw-r--r-- | win32/win32io.c | 4 |
2 files changed, 3 insertions, 3 deletions
@@ -1841,7 +1841,7 @@ nothing in the core. APPLY_TAINT_PROPER(); tot = sp - mark; while (++mark <= sp) { - const char *name = SvPV_nolen_const(*mark); + char *name = SvPV_nolen_const(*mark); APPLY_TAINT_PROPER(); if (PerlLIO_utime(name, utbufp)) tot--; diff --git a/win32/win32io.c b/win32/win32io.c index 80185fe048..5ba46a71d3 100644 --- a/win32/win32io.c +++ b/win32/win32io.c @@ -258,7 +258,7 @@ PerlIOWin32_seek(pTHX_ PerlIO *f, Off_t offset, int whence) PerlIOWin32 *s = PerlIOSelf(f,PerlIOWin32); DWORD high = (sizeof(offset) > sizeof(DWORD)) ? (DWORD)(offset >> 32) : 0; DWORD low = (DWORD) offset; - DWORD res = SetFilePointer(s->h,low,&high,where[whence]); + DWORD res = SetFilePointer(s->h,(LONG)low,(LONG *)&high,where[whence]); if (res != 0xFFFFFFFF || GetLastError() != NO_ERROR) { return 0; @@ -274,7 +274,7 @@ PerlIOWin32_tell(pTHX_ PerlIO *f) { PerlIOWin32 *s = PerlIOSelf(f,PerlIOWin32); DWORD high = 0; - DWORD res = SetFilePointer(s->h,0,&high,FILE_CURRENT); + DWORD res = SetFilePointer(s->h,0,(LONG *)&high,FILE_CURRENT); if (res != 0xFFFFFFFF || GetLastError() != NO_ERROR) { return ((Off_t) high << 32) | res; |