From: Teemu A. <in...@us...> - 2005-03-29 21:55:42
|
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} ) { |