[Lxr-commits] CVS: lxr/lib/LXR Lang.pm,1.24,1.25

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

Update of /cvsroot/lxr/lxr/lib/LXR
In directory usw-pr-cvs1:/tmp/cvs-serv31524/lib/LXR

Modified Files:
	Lang.pm 
Log Message:
Add error output if require fails.


Index: Lang.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/lib/LXR/Lang.pm,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -d -r1.24 -r1.25
--- Lang.pm	2001/11/14 15:03:29	1.24
+++ Lang.pm	2001/11/28 13:01:57	1.25
@@ -30,6 +30,7 @@
     foreach $type (values %{$config->filetype}) {
 		if ($pathname =~ /$$type[1]/) {
 			eval "require $$type[2]";
+			die "Unable to load $$type[2] Lang class, $@" if $@;
 			my $create = "new $$type[2]".'($pathname, $release, $$type[0])';
 			$lang = eval($create);
 			die "Unable to create $$type[2] Lang object, $@" unless defined $lang;