From f030d84dbd09d4f4d2814da3d828e5461cb2cf46 Mon Sep 17 00:00:00 2001 From: minima Date: Sun, 9 Sep 2001 11:18:21 +0000 Subject: [PATCH] check for some text --- cmd/set/var.pl | 2 ++ cmd/show/var.pl | 1 + 2 files changed, 3 insertions(+) diff --git a/cmd/set/var.pl b/cmd/set/var.pl index d2ea1d13..b8d81d26 100644 --- a/cmd/set/var.pl +++ b/cmd/set/var.pl @@ -10,6 +10,8 @@ my ($self, $line) = @_; return (1, $self->msg('e5')) if $self->priv < 9 || $self->remotecmd; +return (1, $self->msg('e9')) unless $line; + my ($var, $rest) = split /=|\s+/, $line, 2; $rest =~ s/^=\s*//; Log('DXCommand', $self->call . " set $var = $rest" ); diff --git a/cmd/show/var.pl b/cmd/show/var.pl index 3f071571..29d7b350 100644 --- a/cmd/show/var.pl +++ b/cmd/show/var.pl @@ -10,6 +10,7 @@ my ($self, $line) = @_; return (1, $self->msg('e5')) if $self->priv < 9 || $self->remotecmd; +return (1, $self->msg('e9')) unless $line; my @f = split /\s+/, $line; my $f; my @out; -- 2.43.0