[Lxr-commits] CVS: lxr/lib/LXR Lang.pm,1.29,1.30

[Dave B. <bro...@us...>]

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

Modified Files:
	Lang.pm 
Log Message:
add language support for VB, shell scripts, and SQL

Index: Lang.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/lib/LXR/Lang.pm,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -d -r1.29 -r1.30
--- Lang.pm	18 Mar 2002 14:55:43 -0000	1.29
+++ Lang.pm	1 Jul 2004 20:41:25 -0000	1.30
@@ -27,7 +27,7 @@
 	my ($self, $pathname, $release, @itag) = @_;
 	my ($lang, $type);
 
-    foreach $type (values %{$config->filetype}) {
+	foreach $type (values %{$config->filetype}) {
 		if ($pathname =~ /$$type[1]/) {
 			eval "require $$type[2]";
 			die "Unable to load $$type[2] Lang class, $@" if $@;
@@ -49,7 +49,7 @@
 		my %inter = %{$config->interpreters};
 		
 		foreach my $patt (keys %inter) {
-			if ($shebang =~ /$patt/) {
+			if ($shebang =~ /\/$patt/) {
 				eval "require $filetype{$inter{$patt}}[2]";
 				die "Unable to load $filetype{$inter{$patt}}[2] Lang class, $@" if $@;
 				my $create = "new ".