[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 (file)
--- 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;