[Lxr-commits] CVS: lxr diff,1.13,1.14 find,1.23,1.24 ident,1.20,1.21 search,1.26,1.27 source,1.43,1.44

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

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

Modified Files:
	diff find ident search source 
Log Message:
fix a bug I made a while back; explain each "use" line

Index: diff
===================================================================
RCS file: /cvsroot/lxr/lxr/diff,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- diff	21 Jul 2004 20:44:30 -0000	1.13
+++ diff	2 Sep 2004 15:26:42 -0000	1.14
@@ -26,7 +26,8 @@
 $CVSID = '$Id$ ';
 
 use strict;
-use lib '.';
+use lib '.'; # for Local.pm
+use lib do { $0 =~ m{(.*)/} ? "$1/lib" : "lib" }; # if LXR modules are in ./lib
 
 use LXR::Common qw(:html);
 use Local;

Index: find
===================================================================
RCS file: /cvsroot/lxr/lxr/find,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -d -r1.23 -r1.24
--- find	21 Jul 2004 20:44:30 -0000	1.23
+++ find	2 Sep 2004 15:26:42 -0000	1.24
@@ -26,7 +26,8 @@
 $CVSID = '$Id$ ';
 
 use strict;
-use lib '.';
+use lib '.'; # for Local.pm
+use lib do { $0 =~ m{(.*)/} ? "$1/lib" : "lib" }; # if LXR modules are in ./lib
 
 use LXR::Common qw(:html);
 use LXR::Config;

Index: ident
===================================================================
RCS file: /cvsroot/lxr/lxr/ident,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- ident	21 Jul 2004 20:44:30 -0000	1.20
+++ ident	2 Sep 2004 15:26:42 -0000	1.21
@@ -26,7 +26,8 @@
 $CVSID = '$Id$ ';
 
 use strict;
-use lib '.';
+use lib '.'; # for Local.pm
+use lib do { $0 =~ m{(.*)/} ? "$1/lib" : "lib" }; # if LXR modules are in ./lib
 
 use LXR::Common qw(:html);
 use Local;

Index: search
===================================================================
RCS file: /cvsroot/lxr/lxr/search,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -d -r1.26 -r1.27
--- search	26 Jul 2004 20:53:17 -0000	1.26
+++ search	2 Sep 2004 15:26:42 -0000	1.27
@@ -26,7 +26,8 @@
 $CVSID = '$Id$ ';
 
 use strict;
-use lib '.';
+use lib '.'; # for Local.pm
+use lib do { $0 =~ m{(.*)/} ? "$1/lib" : "lib" }; # if LXR modules are in ./lib
 
 use LXR::Common qw(:html);
 use LXR::Config;

Index: source
===================================================================
RCS file: /cvsroot/lxr/lxr/source,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -d -r1.43 -r1.44
--- source	21 Jul 2004 20:44:30 -0000	1.43
+++ source	2 Sep 2004 15:26:42 -0000	1.44
@@ -27,7 +27,8 @@
 $CVSID = '$Id$ ';
 
 use strict;
-use lib '.';
+use lib '.'; # for Local.pm
+use lib do { $0 =~ m{(.*)/} ? "$1/lib" : "lib" }; # if LXR modules are in ./lib
 
 use LXR::Common qw(:html);
 use Local;