From d3638a24bc3db366a47be04bd4ee16ee25d45746 Mon Sep 17 00:00:00 2001
From: Martyn Smith <martyn@catalyst.net.nz>
Date: Thu, 29 May 2008 13:45:12 +1200
Subject: [PATCH] Drop invalid WRs rather than attempt to coerce them to ints

---
 tks.pl | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/tks.pl b/tks.pl
index 8f1489d..b116947 100755
--- a/tks.pl
+++ b/tks.pl
@@ -37,9 +37,14 @@ my $total_time = 0;
 # if the wr is in the map, substitute
 foreach my $entry ( @data ) {
     $entry->{wr} = $wrmap->{$entry->{wr}} if exists $wrmap->{$entry->{wr}};
-    $entry->{wr} = int($entry->{wr});
+    unless ( $entry->{wr} =~ m{ \A \d+ \z }xms ) {
+        warn "Invalid WR '$entry->{wr}'\n";
+        # TODO: perhaps interactively add these?
+    }
 }
 
+@data = grep { $_->{wr} =~ m{ \A \d+ \z }xms } @data;
+
 # sort dataz by date, then WR
 @data = sort { $a->{date} cmp $b->{date} or $a->{wr} <=> $b->{wr} } @data;
 
-- 
2.39.5