From: Steve Hay <SteveHay@planit.com>
Date: Fri, 22 Apr 2005 08:13:01 +0000 (+0000)
Subject: Fix my_chsize() for systems having chsize(), broken by change #24271
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=72cc7e2ab9abf6b26145a62bf39dc0f2a34c6b8f;p=p5sagit%2Fp5-mst-13.2.git

Fix my_chsize() for systems having chsize(), broken by change #24271
p4raw-link: @24271 on //depot/perl: 27da23d53ccce622bc51822f59df8def79b4df95

p4raw-id: //depot/perl@24276
---

diff --git a/pp_sys.c b/pp_sys.c
index d908a1c..135ae01 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -118,6 +118,7 @@ extern int h_errno;
 # ifdef my_chsize  /* Probably #defined to Perl_my_chsize in embed.h */
 #   undef my_chsize
 # endif
+# define my_chsize PerlLIO_chsize
 #else
 # ifdef HAS_TRUNCATE
 #   define my_chsize PerlLIO_chsize