From 5628d9c0e299eea79e87aa8a5ed2d99a2895a4d0 Mon Sep 17 00:00:00 2001

From: Yaakov Selkowitz <yselkowi@redhat.com>

Date: Fri, 4 Dec 2015 02:28:00 -0600

Subject: [PATCH 5/6] Add s390/x support

MIME-Version: 1.0

Content-Type: text/plain; charset=UTF-8

Content-Transfer-Encoding: 8bit

Signed-off-by: Petr е═abata <contyk@redhat.com>

---

 lib/Sys/Syscall.pm | 7 +++++++

 1 file changed, 7 insertions(+)

diff --git a/lib/Sys/Syscall.pm b/lib/Sys/Syscall.pm

index ece65de..702e835 100644

--- a/lib/Sys/Syscall.pm

+++ b/lib/Sys/Syscall.pm

@@ -79,6 +79,13 @@ if ($^O eq "linux") {

         $SYS_sendfile     = 186;  # sys_sendfile64=226

         $SYS_readahead    = 191;

         $u64_mod_8        = 1;

+    } elsif ($machine =~ m/^s390/) {

+        $SYS_epoll_create = 249;

+        $SYS_epoll_ctl    = 250;

+        $SYS_epoll_wait   = 251;

+        $SYS_sendfile     = 187;  # sys_sendfile64=223

+        $SYS_readahead    = 222;

+        $u64_mod_8        = 1;

     } elsif ($machine eq "ia64") {

         $SYS_epoll_create = 1243;

         $SYS_epoll_ctl    = 1244;

-- 

2.5.0