Make castling O-O instead of 0-0, as per FEN standard.
authorSteinar H. Gunderson <sgunderson@bigfoot.com>
Sat, 23 Jan 2016 12:44:01 +0000 (13:44 +0100)
committerSteinar H. Gunderson <sgunderson@bigfoot.com>
Sat, 23 Jan 2016 12:44:01 +0000 (13:44 +0100)
Board.pm

index 8573bd8..2950e35 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;