From: minima Date: Mon, 31 Jul 2000 21:30:03 +0000 (+0000) Subject: try absolute R_NEXT X-Git-Tag: R_1_43~8 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=81a5b9bf8d3101bbc1a8190a9de72de0117d302a;p=spider.git try absolute R_NEXT --- diff --git a/cmd/show/node.pl b/cmd/show/node.pl index 2cdf84a3..76372cb5 100644 --- a/cmd/show/node.pl +++ b/cmd/show/node.pl @@ -27,7 +27,7 @@ my $count; unless (@call) { my ($action, $key, $data); - for ($action = R_FIRST, $count = 0; !$DXUser::dbm->seq($key, $data, $action); $action = R_NEXT) { + for ($action = DXUser::R_FIRST, $count = 0; !$DXUser::dbm->seq($key, $data, $action); $action = DXUser::R_NEXT) { if ($data =~ m{sort => '[ACRSX]'}) { push @call, $key; ++$count;