summaryrefslogtreecommitdiff
path: root/pp_sys.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>1999-08-13 22:48:40 +0000
committerJarkko Hietaniemi <jhi@iki.fi>1999-08-13 22:48:40 +0000
commitd9b3e12dc6d5d94bcf6692f9359e377c8a7dcdd6 (patch)
tree02fd6a0afe5f8a45764e5d35e16752db82d3a937 /pp_sys.c
parentcc4466b7484b22db3b089a085bc005d7a5460bed (diff)
downloadperl-d9b3e12dc6d5d94bcf6692f9359e377c8a7dcdd6.tar.gz
Jumbo Configure and large file support update.
Remove a lot of unneeded 64-bitness cruft; re-introduce BYTEORDER; update 64-bitness hints; lfs should now work in Solaris; long doubles in AIX. p4raw-id: //depot/cfgperl@3982
Diffstat (limited to 'pp_sys.c')
-rw-r--r--pp_sys.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/pp_sys.c b/pp_sys.c
index 33eddca344..ecaebe33ef 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1764,7 +1764,7 @@ PP(pp_sysseek)
djSP;
GV *gv;
int whence = POPi;
- Off_t offset = POPl;
+ Off_t offset = (Off_t)SvIVx(POPs);
MAGIC *mg;
gv = PL_last_in_gv = (GV*)POPs;
@@ -5000,7 +5000,7 @@ fcntl_emulate_flock(int fd, int operation)
return -1;
}
flock.l_whence = SEEK_SET;
- flock.l_start = flock.l_len = 0L;
+ flock.l_start = flock.l_len = (Off_t)0;
return fcntl(fd, (operation & LOCK_NB) ? F_SETLK : F_SETLKW, &flock);
}