[Lxr-commits] CVS: lxr/lib/LXR Common.pm,1.52,1.53

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

Update of /cvsroot/lxr/lxr/lib/LXR
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13649/lxr/lib/LXR

Modified Files:
	Common.pm 
Log Message:
Fix Bug 1230443: Two letter directories fail.

Fix the various regexps in Common.pm

Index: Common.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/lib/LXR/Common.pm,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -d -r1.52 -r1.53
--- Common.pm	15 May 2005 22:59:31 -0000	1.52
+++ Common.pm	9 Sep 2005 22:06:18 -0000	1.53
@@ -538,7 +538,7 @@
 	
 	if(defined $path) {
 		# First suppress anything after a dodgy character
-		$path =~ s!(^[\w_+-,.%^/\!]+).*!$1!;
+		$path =~ s!(^[\w_+\-,.%^/\!]+).*!$1!;
 		# Clean out /../
 		while ($path =~ m!/\.\.?/!) {
 			$path =~ s!/\.\.?/!/!g;