From 6897e4adf0c591b13b2f9270f9b59158463dac49 Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Mon, 31 May 1999 17:01:56 +0000
Subject: [PATCH] removed a warning from client

---
 Changes        | 1 +
 perl/client.pl | 4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)

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';
-- 
2.34.1