From: Martin Mares <mj@ucw.cz>
Date: Tue, 13 Sep 2005 16:29:44 +0000 (+0000)
Subject: Ulimit.xs now compiles in Perl 5.8.x, while still working in 5.6.x, which
X-Git-Tag: holmes-import~744
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=daeb867ae06487d59350b551e0480b39783737bf;p=libucw.git

Ulimit.xs now compiles in Perl 5.8.x, while still working in 5.6.x, which
I hope is all what we need.
---

diff --git a/lib/perl/Ulimit/Ulimit.xs b/lib/perl/Ulimit/Ulimit.xs
index 7aea4740..2951ac69 100644
--- a/lib/perl/Ulimit/Ulimit.xs
+++ b/lib/perl/Ulimit/Ulimit.xs
@@ -2,7 +2,6 @@
  * PerlXS module for managing process limits
  *
  * (c) 2003 Tomas Valla <tom@ucw.cz>
- *
  */
 
 #include "EXTERN.h"
@@ -18,10 +17,7 @@ MODULE = Sherlock::Ulimit		PACKAGE = Sherlock::Ulimit
 PROTOTYPES: ENABLED
 
 int
-setlimit(IN resource, IN soft, IN hard)
-	int resource
-	int soft
-	int hard
+setlimit(IN int resource, IN int soft, IN int hard)
 CODE:
 	struct rlimit rl;
 	int r;
@@ -56,10 +52,7 @@ OUTPUT:
 
 
 int
-getlimit(IN resource, OUT soft, OUT hard)
-	int resource
-	int soft
-	int hard
+getlimit(IN int resource, OUT int soft, OUT int hard)
 CODE:
 	struct rlimit rl;
 	int r;
@@ -92,5 +85,3 @@ CODE:
 	hard = rl.rlim_max;
 OUTPUT:
 	RETVAL
-
-