Update of /cvsroot/lxr/lxr
In directory usw-pr-cvs1:/tmp/cvs-serv27412
Modified Files:
genxref
Log Message:
Replace use of direct access of range variable v with the correct
varrange accessor
Index: genxref
===================================================================
RCS file: /cvsroot/lxr/lxr/genxref,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -d -r1.23 -r1.24
--- genxref 2001/08/15 15:50:26 1.23
+++ genxref 2001/09/26 14:42:57 1.24
@@ -27,7 +27,6 @@
use LXR::Common;
-
my %option;
GetOptions(\%option, "help!", "url=s", "version=s", "allurls!", "allversions!");
@@ -71,7 +70,7 @@
my @versions;
if ($option{'allversions'} || !$option{'version'}) {
- @versions = @{$config->{variables}{v}{range}};
+ @versions = $config->varrange('v');
} else {
@versions = $option{'version'};
}
@@ -80,6 +79,7 @@
genindex('/', $version);
genrefs('/', $version);
}
+
sub genindex {
my ($pathname, $release) = @_;
|
