Testing the new syntax highlighting for perl scripts

git-svn-id: https://svn.apache.org/repos/asf/httpd/httpd/trunk@1329890 13f79535-47bb-0310-9956-ffa450edef68

diff --git a/docs/manual/rewrite/rewritemap.html.en b/docs/manual/rewrite/rewritemap.html.en
index 90e190a318253482c1eabca89ec97a1ea7a9d157..0afd5d75372b6a6348767a0b9402dae84d6a1051 100644 (file)
--- a/docs/manual/rewrite/rewritemap.html.en
+++ b/docs/manual/rewrite/rewritemap.html.en
@@ -375,14 +375,15 @@ by many requests.
     </code></p></div>
 
     <div class="example"><h3>dash2under.pl</h3><p><code>
-    #!/usr/bin/perl<br />
-    $| = 1; # Turn off I/O buffering<br />
-    while (&lt;STDIN&gt;) {<br />
-        <span class="indent">
-        s/-/_/g; # Replace dashes with underscores<br />
-        print $_;<br />
-        </span>
-    }<br />
+    <pre class="prettyprint lang-perl">
+    #!/usr/bin/perl
+    $| = 1; # Turn off I/O buffering
+    while (&lt;STDIN&gt;) {
+        s/-/_/g; # Replace dashes with underscores
+        print $_;
+    }
+    </pre>
+
     </code></p></div>
 
 <div class="note"><h3>Caution!</h3>