From a4299593feb14ed8317da49980b8c06e59688aa2 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 14 Apr 2000 23:59:01 +0000
Subject: no_comment

---
 perl-install/c/stuff.xs.pm | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

(limited to 'perl-install/c')

diff --git a/perl-install/c/stuff.xs.pm b/perl-install/c/stuff.xs.pm
index 588d07547..e02e51766 100644
--- a/perl-install/c/stuff.xs.pm
+++ b/perl-install/c/stuff.xs.pm
@@ -11,6 +11,7 @@ print '
 #include <sys/types.h>
 #include <sys/wait.h>
 #include <sys/ioctl.h>
+#include <sys/resource.h>
 #include <sys/stat.h>
 #include <sys/utsname.h>
 #include <sys/mount.h>
@@ -131,6 +132,25 @@ total_sectors(fd)
   OUTPUT:
   RETVAL
 
+void
+unlimit_core()
+  CODE:
+  {
+    struct rlimit rlim = { RLIM_INFINITY, RLIM_INFINITY };
+    setrlimit(RLIMIT_CORE, &rlim);
+  }
+
+int
+getlimit_core()
+  CODE:
+  {
+    struct rlimit rlim;
+    getrlimit(RLIMIT_CORE, &rlim);
+    RETVAL = rlim.rlim_cur;
+  }
+  OUTPUT:
+  RETVAL
+
 void
 openlog(ident)
   char *ident
-- 
cgit v1.2.1