First bits of the sorter infrastructure.

[libucw.git] / lib / perl / Ulimit / Ulimit.pm

diff --git a/lib/perl/Ulimit/Ulimit.pm b/lib/perl/Ulimit/Ulimit.pm
index f368555589574c129fc11c834d14e9a3b8b1a328..a05ea5b5d13a6442542dce4853d99a5d96e25e47 100644 (file)
--- 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 <tom@ucw.cz>
+#
+# 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;
@@ -30,7 +44,7 @@ our $AS = 9;
 # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
 # will save memory.
 our %EXPORT_TAGS = ( 'all' => [ qw(
-       
+
 ) ] );
 
 our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );