diff --git a/Changelog b/Changelog index 8e3b681..1d9d555 100644 --- a/Changelog +++ b/Changelog @@ -1,3 +1,7 @@ + 2.21 + - fixed bug in new() used $this instead of $self for empty + hashref creation if no config file given. + 2.20 - fixed bug reported by Stefano di Sandro : in OOP mode (extended access) the obj() method returned the whole diff --git a/General.pm b/General.pm index da65c2b..1fb83c6 100644 --- a/General.pm +++ b/General.pm @@ -5,7 +5,7 @@ # config values from a given file and # return it as hash structure # -# Copyright (c) 2000-2002 Thomas Linden . +# Copyright (c) 2000-2003 Thomas Linden . # All Rights Reserved. Std. disclaimer applies. # Artificial License, same as perl itself. Have fun. # @@ -18,7 +18,7 @@ use strict; use Carp; use Exporter; -$Config::General::VERSION = "2.20"; +$Config::General::VERSION = "2.21"; use vars qw(@ISA @EXPORT); @ISA = qw(Exporter); @@ -256,7 +256,7 @@ sub new { } else { # hm, no valid config file given, so try it as an empty object - $self->{config} = $this->_hashref(); + $self->{config} = $self->_hashref(); $self->{parsed} = 1; } } @@ -1928,7 +1928,7 @@ Thomas Linden =head1 VERSION -2.20 +2.21 =cut diff --git a/README b/README index 98249ef..cca9542 100644 --- a/README +++ b/README @@ -104,4 +104,4 @@ AUTHOR VERSION - 2.20 + 2.21