git-svn: extra error check to ensure we open a file correctly

diff --git a/git-svn.perl b/git-svn.perl
index 747daf0181babeae63378a6ec49a8bc4b7f70a0f..ff61b9201fefd7563d4937ad5db00ecd25ffe986 100755 (executable)
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -3438,6 +3438,9 @@ sub open_file {
        my ($self, $path, $pb, $rev) = @_;
        my ($mode, $blob) = (safe_qx('git-ls-tree',$self->{c},'--',$path)
                             =~ /^(\d{6}) blob ([a-f\d]{40})\t/);
+       unless (defined $mode && defined $blob) {
+               die "$path was not found in commit $self->{c} (r$rev)\n";
+       }
        { path => $path, mode_a => $mode, mode_b => $mode, blob => $blob,
          pool => SVN::Pool->new, action => 'M' };
 }