From 699e2b8f9d924df78f55f69dfeded213f158b121 Mon Sep 17 00:00:00 2001 From: minima Date: Mon, 31 Jul 2000 21:17:23 +0000 Subject: [PATCH] fiddle with use DB_File in sh/node.pl --- cmd/show/node.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/cmd/show/node.pl b/cmd/show/node.pl index 9b6938a6..2cdf84a3 100644 --- a/cmd/show/node.pl +++ b/cmd/show/node.pl @@ -17,13 +17,14 @@ my ($self, $line) = @_; return (1, $self->msg('e5')) unless $self->priv >= 1; +use DB_File; + my @call = map {uc $_} split /\s+/, $line; my @out; my $count; # search thru the user for nodes unless (@call) { - use DB_File; my ($action, $key, $data); for ($action = R_FIRST, $count = 0; !$DXUser::dbm->seq($key, $data, $action); $action = R_NEXT) { -- 2.34.1