X-Git-Url: https://git.sesse.net/?p=remoteglot;a=blobdiff_plain;f=remoteglot.pl;h=5e1e94aa99cdf28cfbe1909b5f84a5d2817ef689;hp=52eae900e98dc52aa070d4b5eac3fa8c7436b79e;hb=ddc3383ef834627f59f3dd810e78040f6de2105b;hpb=4166f694604b0ee8e7fb47156c6623d036b35457 diff --git a/remoteglot.pl b/remoteglot.pl index 52eae90..5e1e94a 100755 --- a/remoteglot.pl +++ b/remoteglot.pl @@ -121,7 +121,7 @@ my $ev1 = AnyEvent->io( } ); if (defined($remoteglotconf::target)) { - if ($remoteglotconf::target =~ /^http:/) { + if ($remoteglotconf::target =~ /^https?:/) { fetch_pgn($remoteglotconf::target); } else { $t->cmd("observe $remoteglotconf::target"); @@ -526,7 +526,7 @@ sub prettyprint_pv_no_cache { sub prettyprint_pv { my ($pos, @pvs) = @_; - my $cachekey = join('', @pvs); + my $cachekey = $pos->{'fen'} . join('', @pvs); if (exists($pos->{'prettyprint_cache'}{$cachekey})) { return @{$pos->{'prettyprint_cache'}{$cachekey}}; } else {