From: djk <djk>
Date: Mon, 31 May 1999 17:01:56 +0000 (+0000)
Subject: removed a warning from client
X-Git-Tag: R_1_29~4
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=6897e4adf0c591b13b2f9270f9b59158463dac49;p=spider.git

removed a warning from client
---

diff --git a/Changes b/Changes
index f9d6cb5e..e2235683 100644
--- a/Changes
+++ b/Changes
@@ -4,6 +4,7 @@ the channels that they are supposed to.
 2. Pass the RCMDing node's priv level to the command (rather than the 
 connecting node's privilege level).
 3. Pass thru merge requests for other nodes.
+4. Removed a warning from client.pl
 25May99=======================================================================
 1. try to make the lastin value correct even for local users
 2. got rid of the stupid bug that failed to print out the offline message
diff --git a/perl/client.pl b/perl/client.pl
index 9e948a18..1a57a1c6 100755
--- a/perl/client.pl
+++ b/perl/client.pl
@@ -325,9 +325,9 @@ $waitedpid = 0;
 # deal with args
 #
 
-$call = uc shift @ARGV;
+$call = uc shift @ARGV if @ARGV;
 $call = uc $myalias if !$call;
-$connsort = lc shift @ARGV;
+$connsort = lc shift @ARGV if @ARGV;
 $connsort = 'local' if !$connsort;
 
 $loginreq = $call eq 'LOGIN';