projects
/
git.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Document current cvsexportcommit limitations.
[git.git]
/
git-cvsexportcommit.perl
diff --git
a/git-cvsexportcommit.perl
b/git-cvsexportcommit.perl
index
f994443
..
3e4e90b
100755
(executable)
--- a/
git-cvsexportcommit.perl
+++ b/
git-cvsexportcommit.perl
@@
-1,5
+1,12
@@
#!/usr/bin/perl -w
#!/usr/bin/perl -w
+# Known limitations:
+# - cannot add or remove binary files
+# - cannot add parent directories when needed
+# - does not propagate permissions
+# - tells "ready for commit" even when things could not be completed
+# (eg addition of a binary file)
+
use strict;
use Getopt::Std;
use File::Temp qw(tempdir);
use strict;
use Getopt::Std;
use File::Temp qw(tempdir);
@@
-151,7
+158,7
@@
foreach my $f (@bfiles) {
my $blob = `git-ls-tree $tree "$f" | cut -f 1 | cut -d ' ' -f 3`;
chomp $blob;
`git-cat-file blob $blob > $tmpdir/blob`;
my $blob = `git-ls-tree $tree "$f" | cut -f 1 | cut -d ' ' -f 3`;
chomp $blob;
`git-cat-file blob $blob > $tmpdir/blob`;
- if (system('cmp', '-
q
', $f, "$tmpdir/blob")) {
+ if (system('cmp', '-
s
', $f, "$tmpdir/blob")) {
warn "Binary file $f in CVS does not match parent.\n";
$dirty = 1;
next;
warn "Binary file $f in CVS does not match parent.\n";
$dirty = 1;
next;