From cbfcef3813750d725c44c45fcc5f77b959d1f875 Mon Sep 17 00:00:00 2001
From: "Difrex(Denis Zheleztsov)" <dz@etegro.com>
Date: Mon, 11 Aug 2014 12:11:55 +0400
Subject: [PATCH] <pre> tag fix

---
 II/T.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/II/T.pm b/II/T.pm
index 8204cfb..9e94166 100644
--- a/II/T.pm
+++ b/II/T.pm
@@ -201,7 +201,6 @@ sub pre {
         my $line = $_;
         if ( ( $line =~ /^====/ ) and ( $pre == 0 ) ) {
 
-            # $txt .= $_;
             $line =~ s/====/<pre class="pre">/g;
             $pre = 1;
         }
@@ -210,6 +209,10 @@ sub pre {
             $pre = 0;
         }
         $txt .= $line;
+        $txt =~ s/<br \/>//g;
+        $txt =~ s/<li>//g;
+        $txt =~ s/<\/li>//g;
+        $txt =~ s/<font.+>(>.+)<\/font>/$1/g;
     }
     close $fh;