[Lxr-commits] CVS: lxr/lib/LXR/Lang Perl.pm,1.3,1.4

[Malcolm B. <mb...@us...>]

Update of /cvsroot/lxr/lxr/lib/LXR/Lang
In directory usw-pr-cvs1:/tmp/cvs-serv1620/lib/LXR/Lang

Modified Files:
	Perl.pm 
Log Message:
Apply patch 458027 from Pavel Hlavnicka

Adds stylesheet (CSS) support to ident, source and diff.

Output style is now controllable from via the lxr.css stylesheet (example 
provided in templates).  Ident output now generated via a template rather 
than hard coded.

Minor additional fixes by me result in the output of ident & source both
validating as HTML 4.01 Transitional.


Index: Perl.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/lib/LXR/Lang/Perl.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- Perl.pm	2001/08/15 15:50:27	1.3
+++ Perl.pm	2001/09/27 16:12:20	1.4
@@ -81,7 +81,7 @@
 	$file =~ s,::,/,g;
 	$file .= ".pm";
 
-	return &LXR::Common::incref($mod, $file);
+	return &LXR::Common::incref($mod, "include", $file);
 }
 
 sub processinclude {
@@ -124,7 +124,7 @@
 		} split(/((?:\n[ \t]*)*\n)/, $$comm));
 	}
 	else {
-		$$comm =~ s|^(.*)$|<b><i>$1</i></b>|gm;
+		$$comm =~ s|^(.*)$|<span class='comment'>$1</span>|gm;
 	}
 }