From 65aa4e3d31851a0b504f55ec9907b4fe4f9f8966 Mon Sep 17 00:00:00 2001 From: "Steinar H. Gunderson" Date: Thu, 4 Dec 2014 00:07:22 +0100 Subject: [PATCH] We do not need to prettyprint a move if we already have the pretty form. --- Position.pm | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/Position.pm b/Position.pm index 9d90cfc..272cadb 100644 --- a/Position.pm +++ b/Position.pm @@ -157,7 +157,7 @@ sub num_pieces { # Returns a new Position object. sub make_move { - my ($pos, $from_row, $from_col, $to_row, $to_col, $promo) = @_; + my ($pos, $from_row, $from_col, $to_row, $to_col, $promo, $pretty_move) = @_; my $from_square = _pos_to_square($from_row, $from_col); my $to_square = _pos_to_square($to_row, $to_col); @@ -211,8 +211,12 @@ sub make_move { } $np->{'player_w'} = $pos->{'player_w'}; $np->{'player_b'} = $pos->{'player_b'}; - my ($move, $nb) = $pos->{'board'}->prettyprint_move($from_row, $from_col, $to_row, $to_col, $promo); - $np->{'last_move'} = $move; + if (defined($pretty_move)) { + $np->{'last_move'} = $pretty_move; + } else { + my ($move, $nb) = $pos->{'board'}->prettyprint_move($from_row, $from_col, $to_row, $to_col, $promo); + $np->{'last_move'} = $move; + } $np->{'last_move_uci'} = Board::move_to_uci_notation($from_row, $from_col, $to_row, $to_col, $promo); return bless $np; -- 2.39.2