with-authinfo-kludge: Make $CLIENTKID be defined.

Otherwise Perl tells me off.

diff --git a/with-authinfo-kludge b/with-authinfo-kludge
index 74519c43ecacd0b7c861d5007598c1ad60ed2603..651cd8ca5373a5c26e799c01f017c0470fb9588e 100755 (executable)
--- a/with-authinfo-kludge
+++ b/with-authinfo-kludge
@@ -73,7 +73,7 @@ my $SESSDIR = undef;
 my %SERVMAP = ();
 my %CLIENT_NOIP = ();
 my %KIDMAP = ();
 my %SERVMAP = ();
 my %CLIENT_NOIP = ();
 my %KIDMAP = ();

-my $CLIENTKID = undef;
+my $CLIENTKID = -1;

 
 ###--------------------------------------------------------------------------
 ### Utilities.
 
 ###--------------------------------------------------------------------------
 ### Utilities.