Update of /cvsroot/lxr/lxr
In directory usw-pr-cvs1:/tmp/cvs-serv9167
Modified Files:
genxref
Log Message:
Add error checking to initialisation
Index: genxref
===================================================================
RCS file: /cvsroot/lxr/lxr/genxref,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -d -r1.25 -r1.26
--- genxref 23 Jan 2002 15:52:51 -0000 1.25
+++ genxref 18 Mar 2002 14:18:19 -0000 1.26
@@ -66,7 +66,9 @@
die("No matching configuration") unless $config->sourceroot;
$files = new LXR::Files($config->sourceroot);
+die "Can't create file access object ".$config->sourceroot if !defined($files);
$index = new LXR::Index($config->dbname, O_RDWR|O_CREAT);
+die "Can't create Index ".$config->dbname if !defined($index);
my @versions;
|
