r23682 - /scripts/KGB/server/KGB

[dmn at users.alioth.debian.org]

Author: dmn
Date: Mon Jul 28 21:29:52 2008
New Revision: 23682

URL: http://svn.debian.org/wsvn/?sc=1&rev=23682
Log:
Do not barf if protocol version is not given

Modified:
    scripts/KGB/server/KGB

Modified: scripts/KGB/server/KGB
URL: http://svn.debian.org/wsvn/scripts/KGB/server/KGB?rev=23682&op=diff
==============================================================================
--- scripts/KGB/server/KGB (original)
+++ scripts/KGB/server/KGB Mon Jul 28 21:29:52 2008
@@ -295,9 +295,11 @@
 	return do_commit_0(@{$params->{Array}});
     } 
     my $proto_ver = shift @{$params->{Array}};
-    unless($proto_ver =~ /^\d{1,5}$/
+    unless(defined($proto_ver) and $proto_ver =~ /^\d{1,5}$/
         and $conf->{min_protocol_version} <= $proto_ver)
     {
+        $proto_ver = "<undef>" unless defined($proto_ver);
+
         $kernel->post(SOAPServer => 'FAULT', $response, 'Client.Arguments',
             "Protocol version $proto_ver not welcome");
         warn("Protocol version $proto_ver rejected\n");