From 5a28b9d1e55bdab3c9006e2ef656994fb202f128 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 1 Mar 2019 13:41:52 +0000
Subject: [PATCH] drop dupe function

---
 generate-plag | 8 --------
 1 file changed, 8 deletions(-)

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");
-- 
2.30.2