diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-04-14 23:59:01 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-04-14 23:59:01 +0000 |
| commit | a4299593feb14ed8317da49980b8c06e59688aa2 (patch) | |
| tree | cf2fea27a2884a3205a95d5c3042cdae91be7c66 /perl-install/c/stuff.xs.pm | |
| parent | 21066f8c4d8d136cca65f7138cabb25d4b4cfe8c (diff) | |
| download | drakx-backup-do-not-use-a4299593feb14ed8317da49980b8c06e59688aa2.tar drakx-backup-do-not-use-a4299593feb14ed8317da49980b8c06e59688aa2.tar.gz drakx-backup-do-not-use-a4299593feb14ed8317da49980b8c06e59688aa2.tar.bz2 drakx-backup-do-not-use-a4299593feb14ed8317da49980b8c06e59688aa2.tar.xz drakx-backup-do-not-use-a4299593feb14ed8317da49980b8c06e59688aa2.zip | |
no_comment
Diffstat (limited to 'perl-install/c/stuff.xs.pm')
| -rw-r--r-- | perl-install/c/stuff.xs.pm | 20 |
1 files changed, 20 insertions, 0 deletions
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> @@ -132,6 +133,25 @@ total_sectors(fd) 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 CODE: |