transport-helper.c: do not overwrite forced bit

diff --git a/git-cvsserver.perl b/git-cvsserver.perl
index a9f6f8ebd443a338509f9c100e2d5c056c9f889f..74d1cc7db040c4d4fa736567be9340e4b4070863 100755 (executable)
--- a/git-cvsserver.perl
+++ b/git-cvsserver.perl
@@ -4167,7 +4167,7 @@ sub convertToDbMode
     #  this half-converted form, but it isn't currently worth the
     #  backwards compatibility headaches.
 
-    $mode=~/^\d\d(\d)\d{3}$/;
+    $mode=~/^\d{3}(\d)\d\d$/;
     my $userBits=$1;
 
     my $dbMode = "";