From 65fd24fbc4c002d227c73a5b620a0a1e84fe42be Mon Sep 17 00:00:00 2001
From: Michael McCandless <mikemccand@apache.org>
Date: Fri, 24 Apr 2009 22:21:38 +0000
Subject: [PATCH] LUCENE-1610: fix changes-to-html to properly format
 <code>...</code>

git-svn-id: https://svn.apache.org/repos/asf/lucene/java/trunk@768427 13f79535-47bb-0310-9956-ffa450edef68
---
 src/site/changes/changes2html.pl | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/site/changes/changes2html.pl b/src/site/changes/changes2html.pl
index d830bb076aa..44e07fc4eb6 100755
--- a/src/site/changes/changes2html.pl
+++ b/src/site/changes/changes2html.pl
@@ -383,9 +383,11 @@ for my $rel (@releases) {
 
     for my $itemnum (1..$#{$items}) {
       my $item = $items->[$itemnum];
-      $item =~ s:&:&amp;:g;                            # Escape HTML metachars
-      $item =~ s:<:&lt;:g; 
-      $item =~ s:>:&gt;:g;
+      $item =~ s:&:&amp;:g;                   # Escape HTML metachars,
+      $item =~ s:<(?!/?code>):&lt;:gi;        #   but leave <code> tags intact
+      $item =~ s:(?<!code)>:&gt;:gi;          #   and add <pre> tags so that
+      $item =~ s:<code>:<code><pre>:gi;       #   whitespace is preserved in the
+      $item =~ s:</code>:</pre></code>:gi;    #   output.
 
       # Put attributions on their own lines.
       # Check for trailing parenthesized attribution with no following period.