Re: [PATCH] Proposal for git-svn
From: Eric Wong <hidden>
Date: 2016-06-15 22:43:22
Benoit SIGOURE [off-list ref] wrote:
quoted hunk ↗ jump to hunk
Hello, I'm importing many SVN repositories in Git and I ran across a problem: ufloat.h has mode 120000but is not a link I've read the code and checked-out the revision where the problem occured and it turns out that some stupid user commited a broken symlink and I think that's where the problem came from. I'm proposing the following trivial change to let git-svn clone continue its work:diff --git a/git-svn.perl b/git-svn.perl index 01c3904..a82baf4 100755 --- a/git-svn.perl +++ b/git-svn.perl@@ -2555,8 +2555,8 @@ sub close_file { sysseek($fh, 0, 0) or croak $!; if ($fb->{mode_b} == 120000) { sysread($fh, my $buf, 5) == 5 or croak $!; - $buf eq 'link ' or die "$path has mode 120000", - "but is not a link\n"; + $buf eq 'link ' or warn "$path has mode 120000", + " but is not a link\n"; } defined(my $pid = open my $out,'-|') or die "Can'tfork: $!\n"; if (!$pid) { (I also added a whitespace because "120000but" does not look good :D) I checked out the problematic revision in git and I see the broken symlink just like in SVN so I assume this change is correct.
Very strange. Since $buf didn't have the string "link " in it, did it have a path name in it? If so, the sysread() would've advanced the $fh offset by 5 bytes; causing an even more broken symlink to be added by git. Would the following be more correct?
--- a/git-svn.perl
+++ b/git-svn.perl@@ -2552,9 +2552,15 @@ sub close_file { } sysseek($fh, 0, 0) or croak $!; if ($fb->{mode_b} == 120000) { - sysread($fh, my $buf, 5) == 5 or croak $!; - $buf eq 'link ' or die "$path has mode 120000", - "but is not a link\n"; + eval { + sysread($fh, my $buf, 5) == 5 or croak $!; + $buf eq 'link ' or die "$path has mode 120000", + " but is not a link"; + }; + if ($@) { + warn "$@\n"; + sysseek($fh, 0, 0) or croak $!; + } } defined(my $pid = open my $out,'-|') or die "Can't fork: $!\n"; if (!$pid) {
--
Eric Wong