From 64369c50ffc24382c971fc731fe829ed71f74a51 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Wed, 22 Oct 2014 16:21:32 -0400 Subject: more debugging --- lib/Bot/Zulip/Chess.pm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lib/Bot/Zulip/Chess.pm b/lib/Bot/Zulip/Chess.pm index 5501a45..1c9ddc9 100644 --- a/lib/Bot/Zulip/Chess.pm +++ b/lib/Bot/Zulip/Chess.pm @@ -83,9 +83,12 @@ has _chessboard => ( my $record = $self->_record_file; if (-e $record) { try { + warn "Loading a previous game..."; chomp(my @lines = $record->slurp); $self->white_player(shift @lines); $self->black_player(shift @lines); + warn "Between " . $self->white_player + . " and " . $self->black_player; for my $turn (@lines) { my ($white, $black) = split ' ', $turn; $board->go_move($white) if $white; -- cgit v1.2.3