Make castling O-O instead of 0-0, as per FEN standard.

[remoteglot] / Board.pm

diff --git a/Board.pm b/Board.pm
index 8573bd8f29814e7cdce82555332b4eda3dc612b0..2950e359c57b4a8fa7ac8632a24a2a730417488a 100644 (file)
--- a/Board.pm
+++ b/Board.pm
@@ -514,22 +514,22 @@ sub _prettyprint_move_no_check_or_mate {
 
        # white short castling
        if ($move eq 'e1g1' && $piece eq 'K') {
-               return '0-0';
+               return 'O-O';
        }
 
        # white long castling
        if ($move eq 'e1c1' && $piece eq 'K') {
-               return '0-0-0';
+               return 'O-O-O';
        }
 
        # black short castling
        if ($move eq 'e8g8' && $piece eq 'k') {
-               return '0-0';
+               return 'O-O';
        }
 
        # black long castling
        if ($move eq 'e8c8' && $piece eq 'k') {
-               return '0-0-0';
+               return 'O-O-O';
        }
 
        my $pretty;