removed a warning from client

diff --git a/Changes b/Changes
index f9d6cb5ede95fc394c13bec58e75af8cfdfc7171..e2235683af9d24f0daf4d0536d8654b5a216314c 100644 (file)
--- 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 9e948a181a64bee603208586c1573d65ddccf327..1a57a1c6e983bb229d283fe4f040ff0aee9e3c2a 100755 (executable)
--- 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';