Hi,
I've encountered a problem with the Ubuntu Hardy version of
git-cvsexportcommit (part of git-cvs 1:1.5.4.3-1ubuntu2). This seems to
be the same problem describedin August last year in the thread on this
list I referenced (Make git-cvsexportcommit "status" each file in turn).
The problem is that cvsexportcommit rejects a patch erroneously when CVS
does not report file statuses in the expected order. It confuses one
file's status for another and says (at least in my case):
Checking if patch will apply
cvs server: nothing known about XXXXXXXXX
cvs server: nothing known about XXXXXXXXX
File XXXXXXXXX is already known in your CVS checkout -- perhaps it\
> has been added by another user. Or this may indicate that it exists\
> on a different branch. If this is the case, use -f to force the\
> merge.
Status was: Up-to-date
File XXXXXXXXX not up to date but has status 'Unknown' in your\
> CVS checkout!
Exiting: your CVS tree is not clean for this merge. at /usr/bin/git\
> -cvsexportcommit line 235.
I searched this list - including the release announcements - and the web
and it did not seem that anyone had applied this patch or otherwise
addressed it.
I then found the git release repository and it *does* seem to have been
addressed in 1.6.0. However, and correct me if I'm mistaken, but the
implementation seems to assume that the committed files' basenames are
unique? This can't be guaranteed in general, can it?
Anyway, by then I'd already had a go at fixing it myself, and I had an
alternative approach, partly based on the suggestions from Robin
Rosenberg in the referenced thread. It doesn't assume basenames are
unique, and therefore I think should be more robust.
So, attached is a patch against v1.5.4. It works for me, but has only
been tested with my particular circumstance, so there could be
assumptions I made which aren't universally true. I did try using the
test suite in git 1.6.0 but it didn't work for reasons I don't want to
spend too much more time investigating. I think the patch as it is
should be easy to follow and integrate with 1.6.0 for someone familiar
with the codebase.
Some notes about the patch.
- It parses the output of CVS status / update, getting the
file status much as before
- save_pipe_capture() is modified to capture STDERR as well as STDOUT
- The STDERR message 'nothing known about <path>' is used
preferentially to get a file's path.
- Otherwise, uses the 'Repository revision' field, extracting the
relevant part by removing the repository root constructed from
meta-data in the CVS/Root and CVS/Repository files.
I hope this helps. Comments welcome.
Thanks,
Nick
--- /usr/bin/git-cvsexportcommit.orig 2008-10-02 01:16:23.000000000 +0100
+++ /home/nick/bin/git-cvsexportcommit 2008-10-02 01:17:13.000000000 +0100
@@ -7,6 +7,18 @@
use Data::Dumper;
use File::Basename qw(basename dirname);
+# read in the first line of a file
+sub first_line {
+ my ($file) = @_;
+ my $line = '';
+
+ return unless open my $fh, "<$file";
+ chomp ($line = <$fh>);
+ close $fh;
+ return $line;
+}
+
+
our ($opt_h, $opt_P, $opt_p, $opt_v, $opt_c, $opt_f, $opt_a, $opt_m, $opt_d, $opt_u, $opt_w);
getopts('uhPpvcfam:d:w:');
@@ -193,21 +205,63 @@
push @canstatusfiles, $f;
}
+
+# Get the root path the CVS working directory thinks its respository is at.
+# (We're in the working dir). Note we assume the repository agrees on this
+# throughout, which isn't necessarily true, but if not it's just bonkers.
+my $root_path = first_line("CVS/Root") || '';
+
+# likewise the module
+my $module_path = first_line("CVS/Repository") || '';
+
+# try and strip off all but the path from the root - we assume the path has no colons
+$root_path =~ s/^.*://;
+$root_path =~ s{/*$}{/$module_path}; # concatenate the paths
+
+
+# lightly tested - seems ok with unknown files, and CVS repos using non-symbolic modules
+
+# get the files' statuses
my %cvsstat;
if (@canstatusfiles) {
if ($opt_u) {
my @updated = xargs_safe_pipe_capture([@cvs, 'update'], @canstatusfiles);
print @updated;
}
+
my @cvsoutput;
@cvsoutput = xargs_safe_pipe_capture([@cvs, 'status'], @canstatusfiles);
- my $matchcount = 0;
- foreach my $l (@cvsoutput) {
- chomp $l;
- if ( $l =~ /^File:/ and $l =~ /Status: (.*)$/ ) {
- $cvsstat{$canstatusfiles[$matchcount]} = $1;
- $matchcount++;
+
+ chomp @cvsoutput;
+ my ($status, $path, $repo_path);
+ my %expected_paths = map { $_ => 1 } @canstatusfiles;
+
+ # Use $_ implcitly here to simplify the regex expressions.
+ # Note that foreach saves and restores $_ for us
+ foreach (@cvsoutput) {
+ # Grab the information when we see it
+ $status = $1, next if /^File:.*Status:\s*(.*)/i;
+ $path = $1, next if /^cvs server: nothing known about (.*)/i;
+
+ next unless m{Repository revision:[\s\d.]*(.*)}i;
+ $repo_path = $1;
+
+ # At this point we can try and reconstruct the file path
+ if (!$path && $repo_path !~ /No entry for/i) {
+ $repo_path =~ s{Attic/?}{}i;
+ $repo_path =~ s{,v\s*$}{}i;
+ $repo_path =~ s{^$root_path/}{};
+
+ $path = $repo_path;
}
+
+ warn "Failed to get a path from the CVS status entry containing:\n$_"
+ unless $path;
+ warn "Found a path in the CVS output we didn't ask for: '$path'"
+ unless exists $expected_paths{$path};
+
+ $cvsstat{$path} = $status;
+ $path = $repo_path = $status = undef;
}
}
@@ -331,7 +385,8 @@
@output = (<$child>);
close $child or die join(' ',@_).": $! $?";
} else {
- exec(@_) or die "$! $?"; # exec() can fail the executable can't be found
+ open STDERR, ">&STDOUT" or warn "child can't dup STDERR";;
+ exec(@_) or die "$! $?"; # exec() can fail the executable can't be found
}
return wantarray ? @output : join('',@output);
}
