scip/Config-General
1
0
Fork 0
mirror of https://codeberg.org/scip/Config-General.git synced 2025-12-16 20:21:01 +01:00
Code Issues Packages Projects Releases Wiki Activity

Splat with 2.46

Browse Source 
git-svn-id: http://dev.catalyst.perl.org/repos/Config-General/trunk@76 be1acefe-a474-0410-9a34-9b3221f2030f
This commit is contained in:
Thomas von Dein
2010-04-08 15:48:03 +00:00
parent 045aed9c39
commit aaaab71992
4 changed files with 13 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Changelog
View File

@@ -1,3 +1,9 @@
2.46
- fixed rt.cpan.org#56370: there was a sort() call in _store()
left, which lead to sorted arrays even if -SaveSorted were
turned off.
2.45 2.45
- fixed rt.cpan.org#50647 escaping bug. Now escaped $ or - fixed rt.cpan.org#50647 escaping bug. Now escaped $ or
backslash characters are handled correctly (across save too) backslash characters are handled correctly (across save too)

6
General.pm
View File

@@ -32,7 +32,7 @@ use Carp::Heavy;
use Carp; use Carp;
use Exporter; use Exporter;
$Config::General::VERSION = 2.45; $Config::General::VERSION = 2.46;
use vars qw(@ISA @EXPORT_OK); use vars qw(@ISA @EXPORT_OK);
use base qw(Exporter); use base qw(Exporter);
@@ -1201,7 +1201,7 @@ sub _store {
foreach my $entry ( $this->{SaveSorted} ? sort keys %$config : keys %$config ) { foreach my $entry ( $this->{SaveSorted} ? sort keys %$config : keys %$config ) {
if (ref($config->{$entry}) eq 'ARRAY') { if (ref($config->{$entry}) eq 'ARRAY') {
foreach my $line (sort @{$config->{$entry}}) { foreach my $line ( $this->{SaveSorted} ? sort @{$config->{$entry}} : @{$config->{$entry}} ) {
if (ref($line) eq 'HASH') { if (ref($line) eq 'HASH') {
$config_string .= $this->_write_hash($level, $entry, $line); $config_string .= $this->_write_hash($level, $entry, $line);
} }
@@ -2510,7 +2510,7 @@ Thomas Linden <tlinden |AT| cpan.org>
=head1 VERSION =head1 VERSION
2.45 2.46
=cut =cut

3
t/cfg.8
View File

@@ -8,8 +8,9 @@
age 31 age 31
</officer> </officer>
</cops> </cops>
domain nix.to
domain b0fh.org domain b0fh.org
domain b0fh.org domain foo.bar
message <<EOF message <<EOF
yes. we are not here. you yes. we are not here. you
can reach us somewhere in can reach us somewhere in

4
t/run.t
View File

@@ -8,8 +8,8 @@
use Data::Dumper; use Data::Dumper;
#use Test::More tests => 57; use Test::More tests => 61;
use Test::More qw(no_plan); #use Test::More qw(no_plan);
# ahem, we deliver the test code with a local copy of # ahem, we deliver the test code with a local copy of
# the Tie::IxHash module so we can do tests on sorted # the Tie::IxHash module so we can do tests on sorted