Testsuite: avoid recent-perl feature use

[exim.git] / src / OS / os.c-Linux

diff --git a/src/OS/os.c-Linux b/src/OS/os.c-Linux
index 4bca77615d5f2d5b6aabffa885885b4dc9e0c9d6..59d81f8ad6b51e3a5a2eccb18c20c79c2413125a 100644 (file)
--- a/src/OS/os.c-Linux
+++ b/src/OS/os.c-Linux
@@ -2,7 +2,7 @@
 *     Exim - an Internet mail transport agent    *
 *************************************************/
 
 *     Exim - an Internet mail transport agent    *
 *************************************************/
 

-/* Copyright (c) University of Cambridge 1997 - 2016 */
+/* Copyright (c) University of Cambridge 1997 - 2018 */

 /* See the file NOTICE for conditions of use and distribution. */
 
 /* Linux-specific code. This is concatenated onto the generic
 /* See the file NOTICE for conditions of use and distribution. */
 
 /* Linux-specific code. This is concatenated onto the generic


@@ -150,4 +150,16 @@ return yield;
 
 #endif  /* FIND_RUNNING_INTERFACES */
 
 
 #endif  /* FIND_RUNNING_INTERFACES */
 

+
+/*************
+* Sendfile   *
+*************/
+#include <sys/sendfile.h>
+
+ssize_t
+os_sendfile(int out, int in, off_t * off, size_t cnt)
+{
+return sendfile(out, in, off, cnt);
+}
+

 /* End of os.c-Linux */
 /* End of os.c-Linux */