Hello community,
here is the log from the commit of package perl-Config-IniFiles for
openSUSE:Factory checked in at 2015-07-16 17:15:58
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Config-IniFiles (Old)
and /work/SRC/openSUSE:Factory/.perl-Config-IniFiles.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Config-IniFiles"
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Config-IniFiles/perl-Config-IniFiles.changes
2015-07-02 22:44:02.000000000 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Config-IniFiles.new/perl-Config-IniFiles.changes
2015-07-16 17:16:00.000000000 +0200
@@ -1,0 +2,6 @@
+Sun Jul 12 08:25:00 UTC 2015 - [email protected]
+
+- updated to 2.88
+ see /usr/share/doc/packages/perl-Config-IniFiles/Changes
+
+-------------------------------------------------------------------
Old:
----
Config-IniFiles-2.87.tar.gz
New:
----
Config-IniFiles-2.88.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Config-IniFiles.spec ++++++
--- /var/tmp/diff_new_pack.OQVVg3/_old 2015-07-16 17:16:01.000000000 +0200
+++ /var/tmp/diff_new_pack.OQVVg3/_new 2015-07-16 17:16:01.000000000 +0200
@@ -17,7 +17,7 @@
Name: perl-Config-IniFiles
-Version: 2.87
+Version: 2.88
Release: 0
%define cpan_name Config-IniFiles
Summary: Module for Reading .Ini-Style Configuration Files
++++++ Config-IniFiles-2.87.tar.gz -> Config-IniFiles-2.88.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Config-IniFiles-2.87/Changes
new/Config-IniFiles-2.88/Changes
--- old/Config-IniFiles-2.87/Changes 2015-06-16 11:05:39.000000000 +0200
+++ new/Config-IniFiles-2.88/Changes 2015-07-10 10:37:30.000000000 +0200
@@ -1,3 +1,8 @@
+2.88 2015-07-10
+ * Apply speedup patch from James Rouzier.
+ -
https://bitbucket.org/shlomif/perl-config-inifiles/pull-request/4/avoid-searching-through-all-the-sections/commits
+ - Avoids it being O(n^2).
+
2.87 2015-06-16
* Replace List::MoreUtils with List::Util-1.33-or-above.
- We only used any() and none() which exist in List::Util too now.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Config-IniFiles-2.87/META.json
new/Config-IniFiles-2.88/META.json
--- old/Config-IniFiles-2.87/META.json 2015-06-16 11:05:39.000000000 +0200
+++ new/Config-IniFiles-2.88/META.json 2015-07-10 10:37:30.000000000 +0200
@@ -4,7 +4,7 @@
"Shlomi Fish <[email protected]>"
],
"dynamic_config" : 1,
- "generated_by" : "Module::Build version 0.421",
+ "generated_by" : "Module::Build version 0.4214",
"keywords" : [
"ini",
"files",
@@ -58,7 +58,7 @@
"provides" : {
"Config::IniFiles" : {
"file" : "lib/Config/IniFiles.pm",
- "version" : "2.87"
+ "version" : "2.88"
}
},
"release_status" : "stable",
@@ -71,5 +71,6 @@
"url" : "https://bitbucket.org/shlomif/perl-config-inifiles";
}
},
- "version" : "2.87"
+ "version" : "2.88",
+ "x_serialization_backend" : "JSON::PP version 2.27300"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Config-IniFiles-2.87/META.yml
new/Config-IniFiles-2.88/META.yml
--- old/Config-IniFiles-2.87/META.yml 2015-06-16 11:05:39.000000000 +0200
+++ new/Config-IniFiles-2.88/META.yml 2015-07-10 10:37:30.000000000 +0200
@@ -13,7 +13,7 @@
configure_requires:
Module::Build: '0.36'
dynamic_config: 1
-generated_by: 'Module::Build version 0.421, CPAN::Meta::Converter version
2.142060'
+generated_by: 'Module::Build version 0.4214, CPAN::Meta::Converter version
2.150005'
keywords:
- ini
- files
@@ -32,7 +32,7 @@
provides:
Config::IniFiles:
file: lib/Config/IniFiles.pm
- version: '2.87'
+ version: '2.88'
requires:
Carp: '0'
Fcntl: '0'
@@ -47,4 +47,5 @@
homepage: https://sourceforge.net/projects/config-inifiles/
license: http://dev.perl.org/licenses/
repository: https://bitbucket.org/shlomif/perl-config-inifiles
-version: '2.87'
+version: '2.88'
+x_serialization_backend: 'CPAN::Meta::YAML version 0.016'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Config-IniFiles-2.87/Makefile.PL
new/Config-IniFiles-2.88/Makefile.PL
--- old/Config-IniFiles-2.87/Makefile.PL 2015-06-16 11:05:39.000000000
+0200
+++ new/Config-IniFiles-2.88/Makefile.PL 2015-07-10 10:37:30.000000000
+0200
@@ -1,4 +1,4 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.4210
+# Note: this file was auto-generated by Module::Build::Compat version 0.4214
require 5.008;
use Module::Build::Compat 0.02;
use lib 'inc';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Config-IniFiles-2.87/lib/Config/IniFiles.pm
new/Config-IniFiles-2.88/lib/Config/IniFiles.pm
--- old/Config-IniFiles-2.87/lib/Config/IniFiles.pm 2015-06-16
11:05:39.000000000 +0200
+++ new/Config-IniFiles-2.88/lib/Config/IniFiles.pm 2015-07-10
10:37:30.000000000 +0200
@@ -2,7 +2,7 @@
use vars qw($VERSION);
-$VERSION = '2.87';
+$VERSION = '2.88';
require 5.008;
use strict;
@@ -1235,6 +1235,8 @@
$self->{mysects} = []; # A pair of hashes to remember which params are
loaded
$self->{myparms} = {}; # or set using the API vs. imported - useful for
$self->{peCMT} = {}; # this will store trailing comments at the end of
single-lined params
+ $self->{e} = {}; # If a section is already exists
+ $self->{mye} = {}; # If a section is already exists
# import shadowing, see below, and WriteConfig($fn, -delta=>1)
if( defined $self->{imported} ) {
@@ -1244,7 +1246,7 @@
# This is only needed on a re-load though
$self->{imported}->ReadConfig() unless ($self->{firstload});
- foreach my $field (qw(sects parms group v sCMT pCMT EOT)) {
+ foreach my $field (qw(sects parms group v sCMT pCMT EOT e)) {
$self->{$field} = _deepcopy($self->{imported}->{$field});
}
} # end if
@@ -1341,7 +1343,7 @@
$self->_caseify(\$sect);
- return ((any { $_ eq $sect } @{$self->{sects}}) ? 1 : 0);
+ return ((exists $self->{e}{$sect}) ? 1 : 0);
}
=head2 AddSection ( $sect_name )
@@ -1358,7 +1360,7 @@
sub _AddSection_Helper
{
my ($self, $sect) = @_;
-
+ $self->{e}{$sect} = 1;
CORE::push @{$self->{sects}}, $sect;
$self->_touch_section($sect);
@@ -1398,9 +1400,10 @@
$self->{mysects} ||= [];
- if (none { $_ eq $sect } @{$self->{mysects}})
+ unless (exists $self->{mye}{$sect})
{
CORE::push @{$self->{mysects}}, $sect;
+ $self->{mye}{$sect} = 1;
}
return;
@@ -1444,6 +1447,7 @@
delete $self->{EOT}{$sect};
delete $self->{parms}{$sect};
delete $self->{myparms}{$sect};
+ delete $self->{e}{$sect};
$self->{sects} = [grep {$_ ne $sect} @{$self->{sects}}];
$self->_touch_section($sect);
@@ -1492,7 +1496,7 @@
$self->_AddSection_Helper($new_sect);
# This is done the fast way, change if data structure changes!!
- foreach my $key (qw(v sCMT pCMT EOT parms myparms)) {
+ foreach my $key (qw(v sCMT pCMT EOT parms myparms e)) {
next unless exists $self->{$key}{$old_sect};
$self->{$key}{$new_sect} =
Config::IniFiles::_deepcopy($self->{$key}{$old_sect});
}
@@ -3136,6 +3140,8 @@
->{EOT}{$sect}{$parm} = "end of text string"
->{pCMT}{$sect}{$parm} = \@comment_lines
->{v}{$sect}{$parm} = $value OR \@values
+ ->{e}{$sect} = 1 OR does not exist
+ ->{mye}{$sect} = 1 OR does not exists
=head1 AUTHOR and ACKNOWLEDGEMENTS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Config-IniFiles-2.87/t/00load.t
new/Config-IniFiles-2.88/t/00load.t
--- old/Config-IniFiles-2.87/t/00load.t 2015-06-16 11:05:39.000000000 +0200
+++ new/Config-IniFiles-2.88/t/00load.t 2015-07-10 10:37:30.000000000 +0200
@@ -81,7 +81,7 @@
# Now test opening and re-write to the same handle
chmod(0644, t_file("test01.ini"));
if(! open( CONFIG, "+<", t_file("test01.ini" ) )) {
- die "Could not open " . t_file("test01.ini") . "read/write";
+ die "Could not open " . t_file("test01.ini") . " for read/write";
}
$ini = Config::IniFiles->new(-file => \*CONFIG);
my $badname = scalar(\*CONFIG);
