[Lxr-commits] CVS: lxr/lib/LXR/Lang Generic.pm,1.43,1.44

[Andre-Littoz <ajl...@us...>]

Update of /cvsroot/lxr/lxr/lib/LXR/Lang
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv28304/lib/LXR/Lang

Modified Files:
	Generic.pm 
Log Message:
Generic.pm: fix incorrect language-insensitive keyword detection

Index: Generic.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/lib/LXR/Lang/Generic.pm,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -d -r1.43 -r1.44
--- Generic.pm	24 Sep 2013 15:35:38 -0000	1.43
+++ Generic.pm	8 Nov 2013 13:26:21 -0000	1.44
@@ -476,7 +476,10 @@
 	&LXR::SimpleParse::requeuefrag($source);
 
 	# Reconstruct the highlighted fragment
-	$$frag =	( $self->isreserved($dirname)
+	my $dictname = $dirname;
+	$dictname =~ s/\s+//;		# for C #directives
+	$dictname = uc($dirname) if $$self{'case_insensitive'};
+	$$frag =	( $self->isreserved($dictname)
 				? "<span class='reserved'>$dirname</span>"
 				: $dirname
 				)