r24645 - /scripts/KGB/server/KGB
tincho at users.alioth.debian.org
tincho at users.alioth.debian.org
Wed Aug 27 08:20:46 UTC 2008
Author: tincho
Date: Wed Aug 27 08:20:44 2008
New Revision: 24645
URL: http://svn.debian.org/wsvn/?sc=1&rev=24645
Log:
Really check the protocol version :)
Modified:
scripts/KGB/server/KGB
Modified: scripts/KGB/server/KGB
URL: http://svn.debian.org/wsvn/scripts/KGB/server/KGB?rev=24645&op=diff
==============================================================================
--- scripts/KGB/server/KGB (original)
+++ scripts/KGB/server/KGB Wed Aug 27 08:20:44 2008
@@ -320,7 +320,8 @@
} else {
$proto_ver = shift @{$params->{Array}};
}
- unless(defined($proto_ver) and $KGB::supported_protos{$proto_ver}) {
+ unless(defined($proto_ver) and $KGB::supported_protos{$proto_ver}
+ and $proto_ver >= $KGB::config->{min_protocol_ver}) {
$proto_ver = "<undef>" unless defined($proto_ver);
$kernel->yield('FAULT', $response, 'Client.commit.Arguments',
More information about the Pkg-perl-cvs-commits
mailing list