From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 1 Mar 2019 13:41:52 +0000 (+0000)
Subject: drop dupe function
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=5a28b9d1e55bdab3c9006e2ef656994fb202f128;p=pandemic-rising-tide.git

drop dupe function
---

diff --git a/generate-plag b/generate-plag
index c39e583..0a89ed2 100755
--- a/generate-plag
+++ b/generate-plag
@@ -7,14 +7,6 @@ BEGIN { unshift @INC, qw(.); }
 
 use Parse;
 
-sub plag_prs ($) {
-    my ($t) = @_;
-    $t = $` if $t =~ m/\n/;
-    $t =~ s/ //g;
-    $t =~ s/-//g;
-    return "$t";
-}
-
 sub output_planar_graph () {
   foreach my $ra (sort keys %region) {
     o(plag_prs($ra), "\n");