- for (my $mpv = 1; $mpv < 500; ++$mpv) {
- my $info = $engine2->{'info'};
- last if (!exists($info->{'pv' . $mpv}));
- eval {
- my $pv = $info->{'pv' . $mpv};
-
- my $pretty_move = join('', prettyprint_pv($pos_calculating_second_engine->{'board'}, $pv->[0]));
- my @pretty_pv = prettyprint_pv($pos_calculating_second_engine->{'board'}, @$pv);
- if (scalar @pretty_pv > 5) {
- @pretty_pv = @pretty_pv[0..4];
- push @pretty_pv, "...";
- }
- my $key = $pretty_move;
- my $line = sprintf(" %-6s %6s %3s %s",
- $pretty_move,
- short_score($info, $pos_calculating_second_engine, $mpv, 1),
- "d" . $info->{'depth' . $mpv},
- join(', ', @pretty_pv));
- push @refutation_lines, [ $key, $line ];
- };
+ if (defined($engine2)) {
+ for (my $mpv = 1; $mpv < 500; ++$mpv) {
+ my $info = $engine2->{'info'};
+ last if (!exists($info->{'pv' . $mpv}));
+ eval {
+ my $pv = $info->{'pv' . $mpv};
+
+ my $pretty_move = join('', prettyprint_pv($pos_calculating_second_engine->{'board'}, $pv->[0]));
+ my @pretty_pv = prettyprint_pv($pos_calculating_second_engine->{'board'}, @$pv);
+ if (scalar @pretty_pv > 5) {
+ @pretty_pv = @pretty_pv[0..4];
+ push @pretty_pv, "...";
+ }
+ my $key = $pretty_move;
+ my $line = sprintf(" %-6s %6s %3s %s",
+ $pretty_move,
+ short_score($info, $pos_calculating_second_engine, $mpv, 0),
+ "d" . $info->{'depth' . $mpv},
+ join(', ', @pretty_pv));
+ push @refutation_lines, [ $key, $line ];
+ };
+ }