Hello community, here is the log from the commit of package perl-BSD-Resource for openSUSE:Factory checked in at Fri Mar 26 16:36:35 CET 2010. -------- --- perl-BSD-Resource/perl-BSD-Resource.changes 2010-02-04 12:19:55.000000000 +0100 +++ perl-BSD-Resource/perl-BSD-Resource.changes 2010-03-26 15:12:19.000000000 +0100 @@ -1,0 +2,7 @@ +Thu Mar 25 17:41:05 CET 2010 - anicka@suse.cz + +- update to 1.2904 + * Address rt.cpan.org #53856: memory leak in get_rlimits() + * Address rt.cpan.org #53859: clarify get_rlimits() docs + +------------------------------------------------------------------- calling whatdependson for head-i586 Old: ---- BSD-Resource-1.2903.tar.bz2 New: ---- BSD-Resource-1.2904.tar.bz2 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-BSD-Resource.spec ++++++ --- /var/tmp/diff_new_pack.l4X5mL/_old 2010-03-26 16:35:45.000000000 +0100 +++ /var/tmp/diff_new_pack.l4X5mL/_new 2010-03-26 16:35:45.000000000 +0100 @@ -1,5 +1,5 @@ # -# spec file for package perl-BSD-Resource (Version 1.2903) +# spec file for package perl-BSD-Resource (Version 1.2904) # # Copyright (c) 2010 SUSE LINUX Products GmbH, Nuernberg, Germany. # @@ -18,8 +18,8 @@ Name: perl-BSD-Resource -Version: 1.2903 -Release: 3 +Version: 1.2904 +Release: 1 Requires: perl = %{perl_version} AutoReqProv: on Group: Development/Libraries/Perl ++++++ BSD-Resource-1.2903.tar.bz2 -> BSD-Resource-1.2904.tar.bz2 ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/BSD-Resource-1.2903/ChangeLog new/BSD-Resource-1.2904/ChangeLog --- old/BSD-Resource-1.2903/ChangeLog 2009-03-31 18:17:43.000000000 +0200 +++ new/BSD-Resource-1.2904/ChangeLog 2010-03-15 02:01:32.000000000 +0100 @@ -1,3 +1,11 @@ +2010-03-14 Jarkko Hietaniemi <jhi@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@iki.fi> * Address rt.cpan.org #44082: @@ -33,7 +41,7 @@ 2008-01-27 Jarkko Hietaniemi <jhi@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 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/BSD-Resource-1.2903/META.yml new/BSD-Resource-1.2904/META.yml --- old/BSD-Resource-1.2903/META.yml 2009-03-31 18:17:51.000000000 +0200 +++ new/BSD-Resource-1.2904/META.yml 2010-03-15 02:02:24.000000000 +0100 @@ -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 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/BSD-Resource-1.2903/Resource.pm new/BSD-Resource-1.2904/Resource.pm --- old/BSD-Resource-1.2903/Resource.pm 2009-03-31 18:15:36.000000000 +0200 +++ new/BSD-Resource-1.2904/Resource.pm 2010-03-15 01:58:54.000000000 +0100 @@ -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(); + use BSD::Resource qw{get_rlimits}; + my $limits = get_rlimits(); -B<NOTE: This is not a real BSD function. It is a convenience function.> +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. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/BSD-Resource-1.2903/Resource.xs new/BSD-Resource-1.2904/Resource.xs --- old/BSD-Resource-1.2903/Resource.xs 2008-01-28 02:55:59.000000000 +0100 +++ new/BSD-Resource-1.2904/Resource.xs 2010-03-15 01:50:49.000000000 +0100 @@ -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 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... -- To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org