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
)
|
