r23682 - /scripts/KGB/server/KGB
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Mon Jul 28 21:29:54 UTC 2008
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");
More information about the Pkg-perl-cvs-commits
mailing list