cvsserver: Do not include status output for subdirectories if -l is passed

diff --git a/git-cvsserver.perl b/git-cvsserver.perl
index 444ec0db797dff8e99d9f619912154c6416925d2..89a4dac291b1d6626b769c91cafc653658cf53cf 100755 (executable)
--- a/git-cvsserver.perl
+++ b/git-cvsserver.perl
@@ -1428,6 +1428,8 @@ sub req_status
     {
         $filename = filecleanup($filename);
 
+        next if exists($state->{opt}{l}) && index($filename, '/', length($state->{prependdir})) >= 0;
+
         my $meta = $updater->getmeta($filename);
         my $oldmeta = $meta;