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

2.24

Browse Source 
- fixed Bug #3869 (rt.cpan.org) reported by
	   "Mike Depot" <mdepot@comcast.net>

	 - applied patch by Roland Huss <Roland.Huss@consol.de>,
	   which fixes a bug with the -Tie option, sub-hashes of
	   named blocks were not properly created (in fact, not
	   tied).

	 - added documentation to Interpolated.pm that it does not
	   interpolate variables in keys, see bug #3773 (rt.cpan.org).


git-svn-id: http://dev.catalyst.perl.org/repos/Config-General/trunk@50 be1acefe-a474-0410-9a34-9b3221f2030f
This commit is contained in:
Thomas von Dein
2009-10-10 16:29:34 +00:00
parent 577e668192
commit 2a0006a8d8
4 changed files with 31 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
General.pm
View File

@@ -18,7 +18,7 @@ use strict;
use Carp;
use Exporter;
$Config::General::VERSION = "2.23";
$Config::General::VERSION = "2.24";
use vars qw(@ISA @EXPORT);
@ISA = qw(Exporter);
@@ -170,7 +170,7 @@ sub new {
}
else {
# this happens if $#param == -1,1 thus no param was given to new!
$self->{config} = $this->_hashref();
$self->{config} = $self->_hashref();
$self->{parsed} = 1;
}
@@ -611,6 +611,10 @@ sub _parse {
else { # calling myself recursively, end of $block reached, $block_level is 0
if ($blockname) { # a named block, make it a hashref inside a hash within the current node
$this->_savelast($blockname);
$config->{$block} = $this->_hashref() # Make sure that the hash is not created implicitely
unless exists $config->{$block};
if (exists $config->{$block}->{$blockname}) { # the named block already exists, make it an array
if ($this->{MergeDuplicateBlocks}) {
# just merge the new block with the same name as an existing one into
@@ -1928,7 +1932,7 @@ Thomas Linden <tom@daemon.de>
=head1 VERSION
2.23
2.24
=cut