[Lxr-commits] CVS: lxr source,1.29,1.30

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

Update of /cvsroot/lxr/lxr
In directory usw-pr-cvs1:/tmp/cvs-serv23847

Modified Files:
	source 
Log Message:
Restored "use lib do..." line at start.  This appears to be working properly
and allows mod_perl to find the LXR files without any other setup


Index: source
===================================================================
RCS file: /cvsroot/lxr/lxr/source,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -d -r1.29 -r1.30
--- source	2001/10/17 06:52:52	1.29
+++ source	2001/10/23 15:23:50	1.30
@@ -26,6 +26,7 @@
 $CVSID = '$Id$ ';
 
 use strict;
+use lib do { $0 =~ m{(.*)/} ? "$1/lib" : "lib" };
 
 use LXR::Common qw(:html);
 use Local;