summaryrefslogtreecommitdiff
path: root/git-cvsserver.perl
diff options
context:
space:
mode:
authorDamien Diederen <dash@foobox.net>2008-03-27 23:17:42 +0100
committerJunio C Hamano <gitster@pobox.com>2008-03-27 16:05:27 -0700
commit23b7180fdcd46556038241cd0388eca092fc55e1 (patch)
treeafda5ccfc0bd566c6894b1824304cb5ebc844aff /git-cvsserver.perl
parent38bcd31a5879847d259a75fbcab9a7977ff63f1e (diff)
downloadgit-23b7180fdcd46556038241cd0388eca092fc55e1.tar.gz
cvsserver: Only print the file part of the filename in status header
The "File:" header of CVS status output only includes the basename of the file, even when generating a recursive listing; do the same. Signed-off-by: Damien Diederen <dash@foobox.net> Signed-off-by: Junio C Hamano <gitster@pobox.com>
Diffstat (limited to 'git-cvsserver.perl')
-rwxr-xr-xgit-cvsserver.perl4
1 files changed, 3 insertions, 1 deletions
diff --git a/git-cvsserver.perl b/git-cvsserver.perl
index 2fe0a8a3cb..444ec0db79 100755
--- a/git-cvsserver.perl
+++ b/git-cvsserver.perl
@@ -1471,8 +1471,10 @@ sub req_status
$status ||= "Unknown";
+ my ($filepart) = filenamesplit($filename);
+
print "M ===================================================================\n";
- print "M File: $filename\tStatus: $status\n";
+ print "M File: $filepart\tStatus: $status\n";
if ( defined($state->{entries}{$filename}{revision}) )
{
print "M Working revision:\t" . $state->{entries}{$filename}{revision} . "\n";