From e7bac31dc00a4127dafcc76e7b85a74c8fe864fa Mon Sep 17 00:00:00 2001 From: Tomas Valla Date: Thu, 6 Nov 2003 16:53:58 +0000 Subject: [PATCH] Added some headers to avoid confusion of our own developers ;) --- lib/perl/Ulimit/Makefile | 2 +- lib/perl/Ulimit/Makefile.PL | 5 ++--- lib/perl/Ulimit/Ulimit.pm | 22 ++++++++++++++++++---- lib/perl/Ulimit/Ulimit.xs | 7 +++++++ 4 files changed, 28 insertions(+), 8 deletions(-) diff --git a/lib/perl/Ulimit/Makefile b/lib/perl/Ulimit/Makefile index 02848195..a610ad67 100644 --- a/lib/perl/Ulimit/Makefile +++ b/lib/perl/Ulimit/Makefile @@ -1,4 +1,4 @@ -# Perl modules +# Makefile for the Ulimit Perl module (c) 2003 Tomas Valla DIRS+=lib/perl/Ulimit/arch/auto/Sherlock/Ulimit diff --git a/lib/perl/Ulimit/Makefile.PL b/lib/perl/Ulimit/Makefile.PL index 1a8d713d..fe1e00d7 100644 --- a/lib/perl/Ulimit/Makefile.PL +++ b/lib/perl/Ulimit/Makefile.PL @@ -1,11 +1,10 @@ +# Makefile for Perl MakeMaker (c) 2003 Tomas Valla + use ExtUtils::MakeMaker; -# See lib/ExtUtils/MakeMaker.pm for details of how to influence -# the contents of the Makefile that is written. WriteMakefile( 'NAME' => 'Sherlock::Ulimit', 'MAKEFILE' => 'Makefile.tmp', 'VERSION_FROM' => 'Ulimit.pm', 'INST_LIB' => 'lib', 'INST_ARCHLIB' => 'arch', - #'PREFIX' => '.', ); diff --git a/lib/perl/Ulimit/Ulimit.pm b/lib/perl/Ulimit/Ulimit.pm index f3685555..ed66b3f9 100644 --- a/lib/perl/Ulimit/Ulimit.pm +++ b/lib/perl/Ulimit/Ulimit.pm @@ -1,3 +1,21 @@ +# Perl module for setting process limits +# +# (c) 2003 Tomas Valla +# +# This software may be freely distributed and used according to the terms +# of the GNU Lesser General Public License. +# +# +# +# Interface: +# Sherlock::Ulimit::setlimit( $resource, $softlimit, $hardlimit) +# Sherlock::Ulimit::getlimit( $resource, $softlimit, $hardlimit) +# +# setlimit sets limit to values supplied in softlimit and hardlimit +# getlimit reads limits into softlimit and hardlimit +# $resource constants are defined below +# + package Sherlock::Ulimit; use 5.006; @@ -10,10 +28,6 @@ require DynaLoader; our @ISA = qw(Exporter DynaLoader); unshift @DynaLoader::dl_library_path, "lib"; -# Items to export into callers namespace by default. Note: do not export -# names by default without a very good reason. Use EXPORT_OK instead. -# Do not simply export all your public functions/methods/constants. - our $CPU = 0; our $FSIZE = 1; our $DATA = 2; diff --git a/lib/perl/Ulimit/Ulimit.xs b/lib/perl/Ulimit/Ulimit.xs index 94ac8573..7aea4740 100644 --- a/lib/perl/Ulimit/Ulimit.xs +++ b/lib/perl/Ulimit/Ulimit.xs @@ -1,3 +1,10 @@ +/* + * PerlXS module for managing process limits + * + * (c) 2003 Tomas Valla + * + */ + #include "EXTERN.h" #include "perl.h" #include "XSUB.h" -- 2.39.2