--- Games-Go-SimpleBoard/SimpleBoard.pm 2008/06/25 20:11:33 1.9 +++ Games-Go-SimpleBoard/SimpleBoard.pm 2008/06/25 20:49:38 1.10 @@ -110,7 +110,6 @@ #timer => [], #score => [], @_, - unmark => [], }, $class } @@ -222,9 +221,12 @@ my ($x, $y, $clr, $set, $label) = @$_; if (!defined $x) { + $$_ &= ~$mark_symbols for @{ delete $self->{unmark} || [] }; # pass } elsif ($x == MOVE_HANDICAP) { + $$_ &= ~$mark_symbols for @{ delete $self->{unmark} || [] }; + # $y = #handicap stones my $c = $HANDICAP_COORD{$self->{size}} or Carp::croak "$self->{size}: illegal board size for handicap"; @@ -244,7 +246,7 @@ $self->{label}[$x][$y] = $label if $set & MARK_LABEL; if ($set & MARK_MOVE) { - $$_ &= ~$mark_symbols for @{ $self->{unmark} }; + $$_ &= ~$mark_symbols for @{ $self->{unmark} || [] }; @{ $self->{unmark} } = $space; unless (${ $_->[5] ||= \my $hint }) {