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