projects
/
aymargeddon
/
current.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
some bugs with json fixed
[aymargeddon/current.git]
/
src
/
Aymargeddon.pm
diff --git
a/src/Aymargeddon.pm
b/src/Aymargeddon.pm
index
7b93246
..
c137c42
100644
(file)
--- a/
src/Aymargeddon.pm
+++ b/
src/Aymargeddon.pm
@@
-38,7
+38,7
@@
use Data::Dumper;
@Aymargeddon::ISA = qw(Game);
sub new{
@Aymargeddon::ISA = qw(Game);
sub new{
- my ($class,$game,$user,$db,$lang) = @_;
+ my ($class,$game,$user,$db,$lang) = @_;
#TODO: $lang not used here?
my $self = Game->new($game,$user,$db);
my $self = Game->new($game,$user,$db);
@@
-47,9
+47,10
@@
sub new{
sub get_map{
my $self = shift;
sub get_map{
my $self = shift;
-
+
unless (exists $self->{-map}){
unless (exists $self->{-map}){
- $self->{-map} = $self->read_map("TERRAIN,HOME,OCCUPANT,TEMPLE,PLAGUE,HOME");
+ #TODO: HOME dupplication correct?
+ $self->{-map} = $self->read_map("TERRAIN,HOME,OCCUPANT,TEMPLE,PLAGUE,HOME");
}
return $self->{-map};
}
}
return $self->{-map};
}