cvsserver: pick up the right mode bits

diff --git a/git-cvsserver.perl b/git-cvsserver.perl
index 36790749830251854fa475f2bd8d33ece07203f6..dfda2b7fbdd97e6d97888cc5f8e9f1f3ff7bc65a 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 = "";