Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Config
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9551/lib/OpenInteract2/Config
Modified Files:
Ini.pm
Log Message:
Antti Vähäkotamäki reported, that in new(), the private _m was not initialized correctly.
Index: Ini.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Config/Ini.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -d -r1.21 -r1.22
*** Ini.pm 18 Mar 2005 04:09:50 -0000 1.21
--- Ini.pm 29 Mar 2005 21:55:34 -0000 1.22
***************
*** 31,41 ****
my $class = ref $pkg || $pkg;
my $self = bless( {
! filename => '',
! directory => '',
! sections => [],
! comments => {},
! order => [],
! order_map => {},
! global => [],
}, $class );
if ( $self->{_m}{filename} = $params->{filename} ) {
--- 31,43 ----
my $class = ref $pkg || $pkg;
my $self = bless( {
! _m => {
! filename => '',
! directory => '',
! sections => [],
! comments => {},
! order => [],
! order_map => {},
! global => [],
! }
}, $class );
if ( $self->{_m}{filename} = $params->{filename} ) {
|