From: Leif Huhn <leif@hale.dkstat.com>
Date: Wed, 17 Jul 2002 20:56:55 +0000 (+0000)
Subject: [perl #15015] truncate incorrectly calls ftruncate w/ Linux w/+largefiles
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=25342a554312ec272aa82646241e17c25b9a2b25;p=p5sagit%2Fp5-mst-13.2.git

[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
---

diff --git a/pp_sys.c b/pp_sys.c
index 06fe495..bd2334a 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;