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

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

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

Modified Files:
	Pascal.pm 
Log Message:
Lang/Pascal.pm: typo during modification

With parser reorganisation for 1.2.0, an extraneous if block was replaced by a sequence of statements. Unhappily, expression in if was incorrectly converted, leaving an ending parenthesis instead of a semicolon.

Index: Pascal.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/lib/LXR/Lang/Pascal.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- Pascal.pm	12 Apr 2013 15:01:09 -0000	1.2
+++ Pascal.pm	26 May 2013 15:03:34 -0000	1.3
@@ -124,7 +124,7 @@
 						//sx) {
 			# Guard against syntax error or variant
 			# Advance past keyword, so that parsing may continue without loop.
-			$source =~ s/^([\w]+)//)	# Erase keyword
+			$source =~ s/^(\w+)//;	# Erase keyword
 			$dirname = $1;
 			$$frag =	"<span class='reserved'>$dirname</span>";
 			&LXR::SimpleParse::requeuefrag($source);