From: Geoffrey T. D. <da...@us...> - 2005-02-16 04:00:24
|
Update of /cvsroot/discnw/discnw/src/perl/modules/ALE/Leagues In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29797/modules/ALE/Leagues Modified Files: Player.pm Log Message: Adjustments for changes I just made to ALE::Individual. Index: Player.pm =================================================================== RCS file: /cvsroot/discnw/discnw/src/perl/modules/ALE/Leagues/Player.pm,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- Player.pm 14 Feb 2005 23:40:38 -0000 1.4 +++ Player.pm 16 Feb 2005 03:59:53 -0000 1.5 @@ -48,7 +48,7 @@ sub _toIndividual { my $self = shift; require ALE::Individual; - return ALE::Individual->lookup_by_id($self->_individual_id); + lookup_by_id ALE::Individual $self->database, $self->_individual_id; } memoize('_toIndividual', 'NORMALIZER' => sub { shift->_individual_id }); |