git-svn: workaround a for broken symlinks in SVN

diff --git a/git-svn.perl b/git-svn.perl
index 7cd62fc5c48acc5bdeeb261b46b9c0df955db678..41fedf5979da140bd329b11d47bd8a2c53335ee2 100755 (executable)
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -3177,9 +3177,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) {