Imported Upstream version 3.2.0upstream/3.2.0

1 files changed, 0 insertions, 28 deletions

diff --git a/tweak_manpage b/tweak_manpage
deleted file mode 100755
index 4c55c514..00000000
--- a/tweak_manpage
+++ /dev/null
@@ -1,28 +0,0 @@
-#!/usr/bin/perl -i -p
-
-use strict;
-use warnings;
-
-# We only need to use "\&'" or "\&." at the start of a line.
-s/(?<=.)\\\&(['.])/$1/g;
-
-# Some quotes turn into open/close quotes.
-s/'(.)'/\\(oq$1\\(cq/g;
-s/(^|[ (])"(?!( |$))/$1\\(lq/gm;
-s/(?<! )"([.,:;! )]|$)/\\(rq$1/gm;
-s/(\\\(lq[^(]*) "( |$)/$1 \\(rq$2/gm;
-s/(^| )" ([^(]*\\\(rq)/$1\\(lq $2/gm;
-
-# And some don't.
-s/^([. ])(.*)/ $1 . realquotes($2) /egm;
-s/(\\f(B|\(CW).*?\\fP)/ realquotes($1) /egs;
-
-s/^\\\&(\\\(oq)/$1/gm;
-
-sub realquotes
-{
-    my($txt) = @_;
-    $txt =~ s/\\\([lr]q/"/g;
-    $txt =~ s/\\\([oc]q/'/g;
-    $txt;
-}