drop dupe function

[pandemic-rising-tide.git] / generate-plag

diff --git a/generate-plag b/generate-plag
index c39e583c4b61ca6622923a6b1da16d6524976bcc..0a89ed26c45757e3d5a10f48cc0a8f6824a7fff6 100755 (executable)
--- 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");