summaryrefslogtreecommitdiff
path: root/pp_sys.c
diff options
context:
space:
mode:
authorLeif Huhn <leif@hale.dkstat.com>2002-07-17 20:56:55 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2002-07-18 04:01:33 +0000
commit25342a554312ec272aa82646241e17c25b9a2b25 (patch)
treee96aa2506f75d5246e442ae66b0170e9e1e18afa /pp_sys.c
parent78232bc06ee8f2056d0df2e16ccf05f417b0df87 (diff)
downloadperl-25342a554312ec272aa82646241e17c25b9a2b25.tar.gz
[perl #15015] truncate incorrectly calls ftruncate w/ Linux w/+largefiles
From: Leif Huhn (via RT) <perlbug@perl.org> Message-Id: <rt-15015-30041.8.70975172593674@perl> Popping off an Off_t tested for sizeof(size_t), when it was supposed to be testing for sizeof(off_t). p4raw-id: //depot/perl@17616
Diffstat (limited to 'pp_sys.c')
-rw-r--r--pp_sys.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_sys.c b/pp_sys.c
index 06fe495155..bd2334ad48 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -2053,7 +2053,7 @@ PP(pp_truncate)
/* XXX Configure probe for the length type of *truncate() needed XXX */
Off_t len;
-#if Size_t_size > IVSIZE
+#if Off_t_size > IVSIZE
len = (Off_t)POPn;
#else
len = (Off_t)POPi;