New upstream version 1.7.4+dfsg

1 files changed, 22 insertions, 20 deletions

diff --git a/Quota.pm b/Quota.pm
index bc71c66..b510607 100644
--- a/Quota.pm
+++ b/Quota.pm
@@ -1,10 +1,10 @@
 # ------------------------------------------------------------------------ #
-# Quota.pm - Copyright (C) 1995-2013 Tom Zoerner
+# Quota.pm - Copyright (C) 1995-2020 T. Zoerner
 # ------------------------------------------------------------------------ #
 # This program is free software: you can redistribute it and/or modify
 # it either under the terms of the Perl Artistic License or the GNU
 # General Public License as published by the Free Software Foundation.
-# (Either version 2 of the GPL, or any later version.)
+# (Either version 1 of the GPL, or any later version.)
 # For a copy of these licenses see <http://www.opensource.org/licenses/>.
 #
 # This program is distributed in the hope that it will be useful,
@@ -22,7 +22,7 @@ require DynaLoader;
 @ISA = qw(Exporter DynaLoader);
 @EXPORT = ();
 
-$VERSION = '1.7.2';
+$VERSION = '1.7.4';
 
 bootstrap Quota;
 
@@ -213,13 +213,13 @@ limits are zero, there is no limit for that user. On most
 systems Quota::query will return undef in that case and
 errno will be set to ESRCH.
 
-When I<$kind> is given and set to 1, I<$uid> is taken as gid and
-group quotas are queried. This is B<not> supported across RPC and
-even locally only on a few architectures (e.g. Linux and other BSD
-based Unix variants, OSF/1 and  AIX - check the quotactl(2) man page
-on your systems). When I<$kind> is set to 2, project quotas are
-queried; this is currently only supported for XFS.  When unsupported,
-this flag is ignored.
+When I<$kind> is given and set to 1, the value in I<$uid> is taken as
+gid and group quotas are queried. Group quotas may not be supported
+across all platforms (e.g. Linux and other BSD based Unix variants,
+OSF/1 and  AIX - check the quotactl(2) man page on your systems).
+
+When I<$kind> is set to 2, project quotas are queried; this is
+currently only supported for XFS. When unsupported, this flag is ignored.
 
 =item I<Quota::setqlim($dev, $uid, $bs,$bh, $is,$ih, $tlo, $kind)>
 
@@ -239,10 +239,10 @@ More alternatives (i.e. setting a specific time) aren't available in
 most implementations.
 
 When I<$kind> is given and set to 1, I<$uid> is taken as gid and
-group quota limits are set. This is supported only on a few
-architectures (see above). When I<$kind> is set to 2, project
-quotas are modified; this is currently only supported for XFS.
-When unsupported, this flag is ignored.
+group quota limits are set. This is not supported on all platforms
+(see above). When I<$kind> is set to 2, project quotas are modified;
+this is currently only supported for XFS. When unsupported, this
+flag is ignored.
 
 Note: if you want to set the quota of a particular user to zero, i.e.
 no write permission, you must not set all limits to zero, since that
@@ -272,10 +272,12 @@ I<Quota::rpcquery($host,$path,$uid,$kind)>
 This is equivalent to B<Quota::query("$host:$path",$uid,$kind)>, i.e.
 query quota for a given user on a given remote host via RPC.
 I<$path> is the path of any file or directory inside the
-file system on the remote host.  Querying group quotas ($kind = 1)
-is only recently supported on some platforms (e.g. on linux via
-"extended" quota RPC, i.e. quota RPC version 2) so it may fail due
-to lack of support either on client or server side, or both.
+file system on the remote host.
+
+Querying group quotas ($kind = 1) is only recently supported on some
+platforms (e.g. on Linux via "extended" quota RPC, i.e. quota RPC
+version 2) so it may fail due to lack of support either on client or
+server side, or both.
 
 =item I<Quota::rpcpeer($port,$use_tcp,timeout)>
 
@@ -377,7 +379,7 @@ see INSTALL.
 
 =head1 AUTHORS
 
-This module was created 1995 by Tom Zoerner
+This module was created 1995 by T. Zoerner
 (email: tomzo AT users.sourceforge.net)
 and since then continually improved and ported to
 many operating- and file-systems. Numerous people
@@ -385,7 +387,7 @@ have contributed to this process; for a complete
 list of names please see the CHANGES document.
 
 The quota module was in the public domain 1995-2001. Since 2001 it is
-licensed under both the Perl Artistic License and version 2 or later of the
+licensed under both the Perl Artistic License and version 1 or later of the
 GNU General Public License as published by the Free Software Foundation.
 For a copy of these licenses see <http://www.opensource.org/licenses/>.
 The respective authors of the source code are it's owner in regard to