r54385 - in /trunk/libbsd-resource-perl: ChangeLog META.yml Resource.pm Resource.xs debian/changelog
carnil-guest at users.alioth.debian.org
carnil-guest at users.alioth.debian.org
Tue Mar 16 09:25:45 UTC 2010
Author: carnil-guest
Date: Tue Mar 16 09:25:30 2010
New Revision: 54385
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54385
Log:
New upstream release
Modified:
trunk/libbsd-resource-perl/ChangeLog
trunk/libbsd-resource-perl/META.yml
trunk/libbsd-resource-perl/Resource.pm
trunk/libbsd-resource-perl/Resource.xs
trunk/libbsd-resource-perl/debian/changelog
Modified: trunk/libbsd-resource-perl/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libbsd-resource-perl/ChangeLog?rev=54385&op=diff
==============================================================================
--- trunk/libbsd-resource-perl/ChangeLog (original)
+++ trunk/libbsd-resource-perl/ChangeLog Tue Mar 16 09:25:30 2010
@@ -1,3 +1,11 @@
+2010-03-14 Jarkko Hietaniemi <jhi at iki.fi>
+
+ * Address rt.cpan.org #53856: memory leak in get_rlimits()
+
+ * Address rt.cpan.org #53859: clarify get_rlimits() docs
+
+ * Release 1.2904.
+
2009-03-31 Jarkko Hietaniemi <jhi at iki.fi>
* Address rt.cpan.org #44082:
@@ -33,7 +41,7 @@
2008-01-27 Jarkko Hietaniemi <jhi at iki.fi>
- * Rewrite the setrlimit.t test. Simplify it a lot; now all
+ * Rewrite the setrlimit.t test. Simplify it a lot; now all
RLIM_INFINITY limits are simply skipped; for those that
are limited we try setting only the soft limit, and accept
a value lower than we tried to set, since various systems
Modified: trunk/libbsd-resource-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libbsd-resource-perl/META.yml?rev=54385&op=diff
==============================================================================
--- trunk/libbsd-resource-perl/META.yml (original)
+++ trunk/libbsd-resource-perl/META.yml Tue Mar 16 09:25:30 2010
@@ -1,12 +1,20 @@
--- #YAML:1.0
-name: BSD-Resource
-version: 1.2903
-abstract: ~
-license: ~
-author: ~
-generated_by: ExtUtils::MakeMaker version 6.42
-distribution_type: module
-requires:
+name: BSD-Resource
+version: 1.2904
+abstract: ~
+author: []
+license: unknown
+distribution_type: module
+configure_requires:
+ ExtUtils::MakeMaker: 0
+build_requires:
+ ExtUtils::MakeMaker: 0
+requires: {}
+no_index:
+ directory:
+ - t
+ - inc
+generated_by: ExtUtils::MakeMaker version 6.55_02
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.3.html
- version: 1.3
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
Modified: trunk/libbsd-resource-perl/Resource.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libbsd-resource-perl/Resource.pm?rev=54385&op=diff
==============================================================================
--- trunk/libbsd-resource-perl/Resource.pm (original)
+++ trunk/libbsd-resource-perl/Resource.pm Tue Mar 16 09:25:30 2010
@@ -1,5 +1,5 @@
#
-# Copyright (c) 1995-2008 Jarkko Hietaniemi. All rights reserved.
+# Copyright (c) 1995-2010 Jarkko Hietaniemi. All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
@@ -13,7 +13,7 @@
use strict;
use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD $VERSION);
-$VERSION = '1.2903';
+$VERSION = '1.2904';
use Carp;
use AutoLoader;
@@ -403,17 +403,25 @@
=head2 get_rlimits
- $rlimits = get_rlimits();
-
-B<NOTE: This is not a real BSD function. It is a convenience function.>
+ use BSD::Resource qw{get_rlimits};
+ my $limits = get_rlimits();
+
+B<NOTE: This is not a real BSD function. It is a convenience function
+introduced by BSD::Resource.>
get_rlimits() returns a reference to hash which has the names of the
available resource limits as keys and their indices (those which
are needed as the first argument to getrlimit() and setrlimit())
as values. For example:
- $r = get_rlimits();
- print "ok.\n" if ($r->{'RLIM_STACK'} == RLIM_STACK);
+ use BSD::Resource qw{get_rlimits};
+ my $limits = get_rlimits();
+ for my $name (keys %$limits) {
+ my ($soft, $hard) = BSD::Resource::getrlimit($limits->{$name});
+ print "$name soft $soft hard $hard\n";
+ }
+
+Note that a limit of -1 means unlimited.
=head1 ERRORS
@@ -478,7 +486,7 @@
=head1 COPYRIGHT AND LICENSE
-Copyright 1995-2008 Jarkko Hietaniemi All Rights Reserved
+Copyright 1995-2010 Jarkko Hietaniemi All Rights Reserved
This library is free software; you may redistribute it and/or modify
it under the same terms as Perl itself.
Modified: trunk/libbsd-resource-perl/Resource.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libbsd-resource-perl/Resource.xs?rev=54385&op=diff
==============================================================================
--- trunk/libbsd-resource-perl/Resource.xs (original)
+++ trunk/libbsd-resource-perl/Resource.xs Tue Mar 16 09:25:30 2010
@@ -1,5 +1,5 @@
/*
- * Copyright (c) 1995-2008 Jarkko Hietaniemi. All rights reserved.
+ * Copyright (c) 1995-2010 Jarkko Hietaniemi. All rights reserved.
* This program is free software; you can redistribute it and/or
* modify it under the same terms as Perl itself.
*
@@ -658,6 +658,7 @@
_get_rlimits()
CODE:
RETVAL = newHV();
+ sv_2mortal((SV*)RETVAL);
#if defined(RLIMIT_AIO_MEM) || defined(HAS_RLIMIT_AIO_MEM)
hv_store(RETVAL, "RLIMIT_AIO_MEM" , 14, newSViv(RLIMIT_AIO_MEM), 0);
#endif
@@ -716,6 +717,7 @@
_get_prios()
CODE:
RETVAL = newHV();
+ sv_2mortal((SV*)RETVAL);
#if defined(PRIO_PROCESS)
hv_store(RETVAL, "PRIO_PROCESS", 12, newSViv(PRIO_PROCESS), 0);
#endif
Modified: trunk/libbsd-resource-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libbsd-resource-perl/debian/changelog?rev=54385&op=diff
==============================================================================
--- trunk/libbsd-resource-perl/debian/changelog (original)
+++ trunk/libbsd-resource-perl/debian/changelog Tue Mar 16 09:25:30 2010
@@ -1,3 +1,9 @@
+libbsd-resource-perl (1.2904-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com> Tue, 16 Mar 2010 09:41:23 +0100
+
libbsd-resource-perl (1.2903-3) unstable; urgency=low
* debian/rules: don't run the tests that randomly fail; note that upstream
More information about the Pkg-perl-cvs-commits
mailing list