X-Git-Url: https://git.sesse.net/?p=remoteglot;a=blobdiff_plain;f=remoteglot.pl;h=2c5fd9f31cdba5d6649122b288d7211b28a9b4a0;hp=ca5263c82be0688f620ca8797e8dc526de913d0e;hb=9a25e24e9f7a80d58170b094668b3374eff9dc2f;hpb=92c3ae694d679a17fe546179c06b54ac8578eb9a

diff --git a/remoteglot.pl b/remoteglot.pl
index ca5263c..2c5fd9f 100755
--- a/remoteglot.pl
+++ b/remoteglot.pl
@@ -5,7 +5,7 @@
 #              analysis, or for live analysis of relayed games. (Do not use for
 #              cheating! Cheating is bad for your karma, and your abuser flag.)
 #
-# Copyright 2007 Steinar H. Gunderson <sgunderson@bigfoot.com>
+# Copyright 2007 Steinar H. Gunderson <steinar+remoteglot@gunderson.no>
 # Licensed under the GNU General Public License, version 2.
 #
 
@@ -861,7 +861,7 @@ sub output_json {
 				$refutation_lines{$pv->[0]} = {
 					sort_key => $pretty_move,
 					depth => $info->{'depth' . $mpv},
-					score_sort_key => score_sort_key($info, $pos_calculating, $mpv, 0),
+					score_sort_key => score_sort_key($info, $mpv, 0),
 					pretty_score => short_score($info, $pos_calculating, $mpv),
 					pretty_move => $pretty_move,
 					pv_pretty => \@pretty_pv,
@@ -1052,7 +1052,7 @@ sub short_score {
 }
 
 sub score_sort_key {
-	my ($info, $pos, $mpv, $invert) = @_;
+	my ($info, $mpv, $invert) = @_;
 
 	if (defined($info->{'score_mate' . $mpv})) {
 		my $mate = $info->{'score_mate' . $mpv};