Update of /cvsroot/lxr/lxr/lib/LXR/Lang
In directory usw-pr-cvs1:/tmp/cvs-serv26092/lib/LXR/Lang
Modified Files:
Perl.pm
Log Message:
Apply patch 530997 from Ville Skyttä to improve the HTML produced.
Index: Perl.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/lib/LXR/Lang/Perl.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- Perl.pm 27 Sep 2001 16:12:20 -0000 1.4
+++ Perl.pm 18 Mar 2002 14:55:43 -0000 1.5
@@ -98,14 +98,14 @@
$$comm = join('', map {
if (/^=head(\d)\s*(.*)/s) {
- "<span class=pod><font size=\"+".(4-$1)."\">$2<\/font></span>";
+ "<span class=\"pod\"><font size=\"+".(4-$1)."\">$2<\/font></span>";
}
elsif (/^=item\s*(.*)/s) {
- "<span class=podhead>* $1 ".
+ "<span class=\"podhead\">* $1 ".
("-" x (67 - length($1)))."<\/span>";
}
elsif (/^=(pod|cut)/s) {
- "<span class=podhead>".
+ "<span class=\"podhead\">".
("-" x 70)."<\/span>";
}
elsif (/^=.*/s) {
@@ -113,10 +113,10 @@
}
else {
if (/^\s/s) { # Verbatim paragraph
- s|^(.*)$|<span class=pod><code>$1</code></span>|gm;
+ s|^(.*)$|<span class="pod"><code>$1</code></span>|gm;
}
else { # Normal paragraph
- s|^(.*)$|<span class=pod>$1</span>|gm;
+ s|^(.*)$|<span class="pod">$1</span>|gm;
s/C\0\<(.*?)\0\>/<code>$1<\/code>/g;
}
$_;
|
