From afad192b8376d1a5d0a6caa73eebdc03d9d7abf4 Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Sat, 23 May 2015 06:23:37 -0700
Subject: [PATCH] Show fractional seconds; use concise duration

---
 modules/cjeopardy/cjeopardy_scores.pl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/modules/cjeopardy/cjeopardy_scores.pl b/modules/cjeopardy/cjeopardy_scores.pl
index ad7409b8..1c9c35d8 100755
--- a/modules/cjeopardy/cjeopardy_scores.pl
+++ b/modules/cjeopardy/cjeopardy_scores.pl
@@ -4,7 +4,7 @@ use warnings;
 use strict;
 
 use Time::HiRes qw(gettimeofday);
-use Time::Duration qw(duration);
+use Time::Duration qw(concise duration);
 
 use Scorekeeper;
 use IRCColors;
@@ -112,7 +112,11 @@ sub sort_quickeststreak {
 sub print_quickeststreak {
   my $player = shift @_;
   return undef if $player->{lifetime_highest_quick_correct_streak} == 0;
-  return "$player->{nick}: $player->{lifetime_highest_quick_correct_streak} in " . duration $player->{lifetime_quickest_correct_streak};
+  if ($player->{lifetime_quickest_correct_streak} < 60) {
+    return "$player->{nick}: $player->{lifetime_highest_quick_correct_streak} in " . sprintf("%.2fs", $player->{lifetime_quickest_correct_streak});
+  } else {
+    return "$player->{nick}: $player->{lifetime_highest_quick_correct_streak} in " . concise duration $player->{lifetime_quickest_correct_streak};
+  }
 }
 
 sub sort_wrongstreak {