| Subject: | Infinite loop in readgame if file empty |
Infinite loop in readgame if file empty.
Steps to reproduce :-
1. Create empty file 'test.pgn'
2. Run the following perl script:
use Chess::Pgn;
my $p = new Chess::Pgn('test.pgn') or die "test.pgn not found\n";
while ( $p->ReadGame ) {
# do something
}